let init length f = let bitarray = make length false in for i = 0 to length - 1 do set bitarray i (f i) done; bitarray