k=1000 a=(2+:range)*k c=:distance*:range
:wa=:gd*((:c4+:c6+c)<a) :wb=:gd*((:c3+:c5+c)<a) goto1