#!perl -pl\x0d $c=m|/|;$a=$`;$b=$';while($c){$e=($b-($c=$b%$a)+($c?$a:0))/$a;s|$| + 1/$e|;$a=$a*$e-$b;$b*=$e}s/\+/=/
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page