open Printf let rec(@)d i=let b,a=modf(d**(1./.i)+.0.00001)in b<0.0001&()=printf" %.f^%.f"a i;a>1.&d@i+.1.||(printf" ";!0)and(!)?(s=read_line())x=printf"%s ="s;float_of_string s@2.;;!0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).