ify :: [String] -> String
listify ss = "[" ++ concat (intersperse ", " ss) ++ "]"

fl
listify :: [String] -> String
listify ss = "[" ++ concat (intersperse ", " ss) ++ "]"
listify ss = "[" ++ concat (intersperse ", " ss) ++ "]"