bracket :: [String] -> String
bracket s = "[" ++ (concat . intersperse ",") s ++ "]"
bracket :: [String] -> String
bracket s = "[" ++ (concat . intersperse ",") s ++ "]"
bracket s = "[" ++ (concat . intersperse ",") s ++ "]"