-- | Indicate how many bytes would be used for an array of the given
-- size.
bytesInArray :: Int -> Int
bytesInArray n = n `shiftL` 1
bytesInArray :: Int -> Int
bytesInArray n = n `shiftL` 1
bytesInArray n = n `shiftL` 1