$ 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