character*99c
1 m=626;n=207;read(*,'(a)',end=2)c;i=scan(c,"/");c(i:i)="";read(c,*)m,n
2 do i=1,m;if(mod(m,i)+mod(n,i)<1)k=i;enddo
print'(i0$)',m/k;if(n>k)print'("/"i0$)',n/k;print*;goto1;end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).