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