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