count down by znz

gets;loop{$><<$_;exit if$_=="0\x0d
";sub!(/\d/){$&.to_i-1};sub!(/^00/,"9")}

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return top