($n,$k)=glob<>;++$_,y/1/9/while$k-=/990/;print"A"x($n-y///c),y/09/AM/r