import Data.List

split :: Char -> [Char] -> [[Char]]
split c str=
  if ind == Nothing then
    [str]
  else
    let Just i = ind in (take i str) : (split c (drop (i+1) str))
  where
    ind = elemIndex c str

main = putStrLn =<< return . unwords . (split ',') =<<getLine
