import Control.Monad
import Data.List

readInt = readLn :: IO Int
readInts = map read . words <$> getLine :: IO [Int]
readNInts = flip replicateM readInts

main :: IO ()
main = do
  a <- getLine
  putStrLn $ f a

f [] = []
f (',':xs) = ' ' : f xs
f (x:xs) = x : f xs