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