4.4BSD/usr/src/old/awk/test/t.3.x
{ x = $1 while (x > 1) { print x x = x / 10 } }