string para listar Haskell

myShow :: String -> String
myShow s = concat ["[", intersperse ',' s, "]"]
Marton