$ perl -e '($n,$d)=split"/",pop;{1while++$x<$d/$n;warn"1/$x\n";$n=$n*$
+x-$d;$d*=$x;redo if$n}' 18/20
1/2
1/3
1/15
[download]

for(($n,$d)=split"/",pop;$n;){1while++$x<$d/$n;warn"1/$x\n";$n=$n*$x-$
+d;$d*=$x}
[download]