#!/perl -ln0a
map$F[$_],@F[@F/2..$#F]