sub a { @_<2 ? @_ : (pop,shift,&b) }
sub b { @_<2 ? @_ : (shift,pop,&a) }
print a(1..8), "\n";