String, um Haskell aufzulisten

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