main=getLine>>=([]#).words
x#y=putStrLn(unwords$x++y)>>(x++[d])#(e:c)where(a:b:c)=y;(d,e)=splitAt(length b)$a++b