4.4BSD/usr/src/old/awk/test/t.3.x

{
x = $1
while (x > 1) {
	print x
	x = x / 10
}
}