do1;read*,n;m=log(n**.1443);if(m<1)print'(i0)',n;1 if(m>0)print'(f0.2xa1hB)',n/1023.**m,m*2+73;end