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