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