match bsh with
            | None -> [];
            | Some v ->
            let mylist = [] in
            List.iter (fun x -> mylist = mylist @ [new bs_in x]) bs_list in mylist;