main=interact$unlines.scanl1(#).lines
(a:b)#(c:d)=last(c:[a|c<'!']):b#d
a#b=a++b