#!/usr/bin/perl -l
pop=~m|/|;($f,$g)=($`,$');sub d{int($_[1]/$_[0]+1)}sub
g{($x,$y)=@_;($x,$y)=($y,$x% $y)while$y;$x} sub re{($p
,$e,$r,$l)=@_;($p,$l)=($p*$l-$e*$r,$e*$l);$g=g($p,$l);
for($p,$l){$_/=$g};($p,$l)}while($f>1){push@o,"1/".d(#
$f,$g);($f,$g)=re($f,$g,1,d($f,$g));}print join' + ',#
@o,"$f/$g";# ungolfed and thus not for production use!