<?\x0d $a=split("0",fgets(STDIN));\x0d array_push($a,"");\x0d while (count($a)>1) {\x0d if($a[0]==0){$a[0]=9;array_pop($a);}\x0d echo (count($a)!=1)?str_pad($a[0],count($a)-1,"0")."\n":"0";\x0d $a[0]--;\x0d }
Note that non-ascii characters in the above source code will be escaped (such as \x9f).