let fill bitarray offset length value =
  for i = offset to offset + length - 1 do
    set bitarray i value
  done