import Control.Monad
import qualified Data.ByteString.Char8 as BS
import Data.Maybe (fromJust)
import Data.List

solve:: String -> String
solve = map (\x -> if x == ',' then ' ' else x)

main :: IO ()
main = do
    s <- BS.unpack <$> BS.getLine
    putStrLn $ solve s
