main = putStrLn . replace "," " " =<< getContents

replace _ _ [] = []
replace from to str
    | from == take (length from) str = to ++ (replace from to $ drop (length from) str)
    | otherwise = head str:(replace from to $ tail str)
