- fmt' n
- | n < base = (intToChar upperCase n) : []
- | otherwise = (intToChar upperCase $! n `mod` base) : fmt' (n `div` base)
+ fmt' m
+ | m < base = (intToChar upperCase m) : []
+ | otherwise = (intToChar upperCase $! m `mod` base) : fmt' (m `div` base)