#!perl -pl
$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/\+/=/