gets stdin n;while {[puts $n]<1} {set n [expr int($n-pow(10,int(log($n)/2.4)))]}