print sub{map{pop,shift,shift,pop}1..@_/4}->(1..8);; 8 1 2 7 6 3 4 5