>perl -le"$_=4; while (--$_) { print }" 3 2 1