main=interact$ \xs ->let(_:c)=lines xs in unwords[d c,d.reverse$c]
d xs = zipWith (!!) xs [0..]