perl -e'$i=1;sub a{print "@_"}; a($i--,++$i)'