string para listar Haskell
myShow :: String -> String
myShow s = concat ["[", intersperse ',' s, "]"]
Marton
myShow :: String -> String
myShow s = concat ["[", intersperse ',' s, "]"]