#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 41 170 loadbang;
#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 #export;
#X obj 376 191 # < 16;
#X obj 63 372 #draw_rect put (3 # 255 0 0) (2 2 #) \, outline 1;
#X obj 33 279 shunt 2;
#X obj 284 78 #inner \, op sq-;
#X obj 386 78 #transpose;
#X connect 0 0 9 0;
#X connect 2 0 25 0;
#X connect 4 0 2 0;
#X connect 5 0 8 0;
#X connect 6 0 2 1;
#X connect 7 0 13 0;
#X connect 8 0 4 0;
#X connect 8 1 2 1;
#X connect 8 2 13 0;
#X connect 9 0 2 0;
#X connect 9 1 10 0;
#X connect 9 2 1 0;
#X connect 10 0 14 0;
#X connect 10 1 14 0;
#X connect 10 2 14 0;
#X connect 10 3 14 0;
#X connect 11 0 24 2;
#X connect 12 0 2 2;
#X connect 13 0 2 2;
#X connect 13 1 12 1;
#X connect 13 1 27 0;
#X connect 14 0 15 0;
#X connect 14 0 16 0;
#X connect 14 0 26 0;
#X connect 16 0 11 0;
#X connect 17 0 19 0;
#X connect 17 0 21 0;
#X connect 17 0 23 0;
#X connect 18 0 22 0;
#X connect 19 0 20 0;
#X connect 22 0 25 1;
#X connect 23 0 18 0;
#X connect 24 0 1 0;
#X connect 25 0 1 0;
#X connect 25 1 24 0;
#X connect 26 0 17 0;
#X connect 27 0 26 1;