import           System.IO hiding (char8)
import           Control.Applicative
import           Control.Monad
import           Data.List
import           Debug.Trace

-- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + --

main :: IO ()
main = do  
  cs <- getLine
  putStrLn $ map (\c -> if c == ',' then ' ' else c) cs

-- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + --
