let get_behav asked_bh bh_list = 
  try Some (List.find (fun b -> b.b_name = asked_bh) bh_list) 
  with Not_found -> None