k=1000 a=(2+:range)*k c=:distance*:range
:w9=:gd*((:c2+:c4+c)<a) :w0=:gd*((:c1+:c3+c)<a) goto1