import           Control.Monad
import           Data.IORef
import           Data.List.Split
import           Data.Maybe
import           Data.List

main :: IO ()
main =
  putStrLn =<< unwords . splitOn "," <$> getLine