toString :: CodeString -> String
toString (CodeString cs _ _) = foldl (\x y -> x ++ " " ++ y) "" cs
toString :: CodeString -> String
toString (CodeString cs _ _) = foldl (\x y -> x ++ " " ++ y) "" cs
toString (CodeString cs _ _) = foldl (\x y -> x ++ " " ++ y) "" cs