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