use bigint;sub f{my($n)=@_;$n-1?$n&1&&f($n/2)?print"A":$n%3&1&&f($n/3)&&print"B":1}f<>