m:-readln([A,B]),format("~0f
",log(A)/log(B)),m.