I'm sorry, try changing this line:

while (%i < %found [ $+ [ $iif(%f > 1,$+(.,%f)) ] ]) {

to this:

while (%i <= %found [ $+ [ $iif(%f > 1,$+(.,%f)) ] ]) {

I retyped the line, that's why. Missed a comparison.


-KingTomato