$_=<>,$/=\1,@;=<>;/n/?splice@_,@_%2?@_-$;++:$;,0,shift@;:print shift@;,pop@;while@;;print@_