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