k=1000 a=(3+:range)*k c=:distance*:range
:wa=:gd*((:c6+:c9+:c0+c)<a) :wb=:gd*((:c5+:c7+:c8+c)<a) goto1