toBase :: Base  -- base 
       -> Int  -- Number to print
       -> String
toBase Dec n = show n
toBase :: Base  -- base 
       -> Int  -- Number to print
       -> String
toBase Dec n = show n
toBase Dec n = show n