#N canvas 210 217 686 442 10;
#X obj 33 38 inlet;
#X obj 33 398 outlet;
#X obj 33 255 #draw_polygon \$1;
#X obj 597 412 outlet attr;
#X msg 41 208 op \$1;
#X obj 95 232 inlet;
#X obj 165 189 inlet;
#X obj 41 189 args op color pos;
#X obj 33 57 route2 grid position;
#X obj 100 76 #mouse \, \, \, \,;
#X obj 396 372 #transpose;
#X obj 153 244 #store;
#X obj 140 211 t a a;
#X obj 123 106 t a;
#X obj 206 105 print;
#X obj 396 353 #outer + (-12 12);
#X obj 284 97 # sqrt;
#X obj 376 210 #fold |;
#X obj 283 157 #grade;
#X obj 284 178 #print GR;
#X obj 361 153 #print DIST;
#X obj 376 229 #to_float;
#X obj 376 191 # < 16;
#X obj 33 279 shunt 2;
#X obj 284 78 #inner \, op sq-;
#X obj 386 78 #transpose;
#X obj 63 372 #draw_rect put (3 # 255 0 0) (2 2 #) \, outline 1;
#X connect 0 0 8 0;
#X connect 2 0 23 0;
#X connect 4 0 2 0;
#X connect 5 0 2 1;
#X connect 6 0 12 0;
#X connect 7 0 4 0;
#X connect 7 1 2 1;
#X connect 7 2 12 0;
#X connect 8 0 2 0;
#X connect 8 1 9 0;
#X connect 8 2 1 0;
#X connect 9 0 13 0;
#X connect 9 1 13 0;
#X connect 9 2 13 0;
#X connect 9 3 13 0;
#X connect 10 0 26 2;
#X connect 11 0 2 2;
#X connect 12 0 2 2;
#X connect 12 1 11 1;
#X connect 12 1 25 0;
#X connect 13 0 14 0;
#X connect 13 0 15 0;
#X connect 13 0 24 0;
#X connect 15 0 10 0;
#X connect 16 0 18 0;
#X connect 16 0 20 0;
#X connect 16 0 22 0;
#X connect 17 0 21 0;
#X connect 18 0 19 0;
#X connect 21 0 23 1;
#X connect 22 0 17 0;
#X connect 23 0 1 0;
#X connect 23 1 26 0;
#X connect 24 0 16 0;
#X connect 25 0 24 1;
#X connect 26 0 1 0;