$_=<>; $n=<>; for$i(0..9){ if($i<$n){ y/0-9A-Za-z/1-90B-ZAb-za/; s/0/CpCzNkSuTbEoA/g; ++$j; } } for$i(1..($n-$j)%26){ y/A-Za-z/B-ZAb-za/; } print;