@d=split//,'4335443554366887798866555766';$n=int<STDIN>;while($n!=4){print"$n is ";$n=$n<20?$d[$n]:$d[$n/10+18]+($n%10==0?0:$d[$n%10]);print"$n.\n";}print"4 is magic.\n";