$n=<>; $r=$n%36; for(12..89){ /./; if($&<$'){ if(!--$r){ $a=$_; } } } print$a,$a%10 x($n/36);