int2Char ::  Int  -- Number to print
          -> Char
int2Char i 
 | i' < 10 = toEnum (i'+ 48)
 | otherwise = toEnum (i' + 55)
 where i' = abs i
int2Char ::  Int  -- Number to print
          -> Char
int2Char i 
 | i' < 10 = toEnum (i'+ 48)
 | otherwise = toEnum (i' + 55)
 where i' = abs i
int2Char i 
 | i' < 10 = toEnum (i'+ 48)
 | otherwise = toEnum (i' + 55)
 where i' = abs i