import Control.Applicative
import Control.Monad
import System.IO

main :: IO ()
main = do
  s <- getLine
  putStrLn (haiku s)

haiku :: String -> String
haiku (a1:a2:a3:a4:a5:s1:b1:b2:b3:b4:b5:b6:b7:s2:c1:c2:c3:c4:c5)
 = (a1:a2:a3:a4:a5:' ':b1:b2:b3:b4:b5:b6:b7:' ':c1:c2:c3:c4:c5)