let concat bitarray_list = 
  List.fold_left (fun a b -> append a b) (make 0 false) bitarray_list