integer*8n
do1;read*,n;print'(i0$)',n;m=61;do3 i=2,5e4;k=0
do2 while(n/i*i==n);n=n/i;2 k=k+1;if(k<1)cycle
print'(a1i0$)',m,i;m=42;3 if(k>1)print'("^"i0$)',k
if(n>1)print'(a1i0$)',m,n;1 print*;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).