TK
Size: a a a
TK
C
а
SP
C
C
gо
SS
C
TK
gо
gо
а
TK
[
[
[
а
class Show a where
show :: a -> String
instance Show Int
show _ = "some number"
instance Show Bool
show True = "True"
show False = "False"
main = do
putStrLn $ show $ 10 -- Вызов show для Int
putStrLn $ show $ True -- Вызов show для Bool
[