integerLength :: Int -> Int -> Int
integerLength 8 l
  | l <= 254  = 1
  | l <= 382  = 2
  | otherwise = 3
integerLength :: Int -> Int -> Int
integerLength 8 l
  | l <= 254  = 1
  | l <= 382  = 2
  | otherwise = 3
integerLength 8 l
  | l <= 254  = 1
  | l <= 382  = 2
  | otherwise = 3