let get_named_bhv name bhv_list = try Some (List.find (fun b -> b.b_name = name) bhv_list) with Not_found -> None