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