import Data.Char
import Data.List


replace :: String -> String
replace [] = []
replace (x:xs)
    | x == ',' = ' ' : replace xs
    | otherwise = x : replace xs

main :: IO()
main = do
    s <- getLine
    putStrLn $ replace s