($n,$d)=split'/',shift;sub p{print"1/$_[0] "}{use Math::Pari
lcm;$u=int$d/$n+1;p$u;$l=lcm$d,$u;$n=$n*$l/$d-$l/$u;$d=$l;p($d),die$/if$n==1;redo}