let
iter f bitarray =
iteri (
fun
_ x
->
f x) bitarray