gets stdin n
while \$n>=0 {puts $n
regexp (1?.)(.*) $n _ i z
set n [expr $i-1]$z}