import Ratio main=interact$s.show.f.map read.words f[a,b]=div(10^100*numerator t)$denominator t where t=(1%1)#(3%1)!!500;l#u|x^^a<b%1=x:x#u|0<1=x:l#x where x=(l+u)/2 s(a:x)=a:'.':x
Note that non-ascii characters in the above source code will be escaped (such as \x9f).