t.hs

class Show a where
  show :: a -> String
  
data Jump = Jump Int

instance Show Jump where
  show (Jump n) = "Мой прыжок равен " ++ show n ++ " см"

main :: IO ()
main = print jump
  where
    jump = Jump 210