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