#N canvas 717 145 678 343 10;
#X msg 37 8 create \, 1;
#X obj 37 49 gemwin;
#X msg 47 28 destroy;
#X obj 194 10 gemhead;
#X obj 194 79 until;
#X obj 194 215 gemlist_info;
#X msg 194 58 19;
#X obj 263 308 print;
#X obj 194 193 spigot 0;
#X obj 194 37 t b a b;
#X msg 343 93 0;
#X obj 328 125 f;
#X obj 356 126 + 1;
#X obj 194 100 t a b;
#X obj 328 169 ==;
#X floatatom 343 152 5 0 0 0 - - -;
#X text 106 8 <- 1;
#X text 383 152 <- 2 (from 0 to 18);
#X obj 194 170 sphere 4;
#X obj 263 236 unpack f f f;
#X obj 194 149 translateXYZ -4 0 0;
#X obj 194 128 gemlist;
#X obj 332 257 + 4;
#X obj 263 287 pack f f f;
#X connect 0 0 1 0;
#X connect 2 0 1 0;
#X connect 3 0 9 0;
#X connect 4 0 13 0;
#X connect 5 4 19 0;
#X connect 6 0 4 0;
#X connect 8 0 5 0;
#X connect 9 0 6 0;
#X connect 9 1 21 1;
#X connect 9 2 10 0;
#X connect 10 0 11 1;
#X connect 11 0 12 0;
#X connect 11 0 14 0;
#X connect 12 0 11 1;
#X connect 13 0 21 0;
#X connect 13 1 11 0;
#X connect 14 0 8 1;
#X connect 15 0 14 1;
#X connect 18 0 8 0;
#X connect 19 0 23 0;
#X connect 19 1 23 1;
#X connect 19 2 22 0;
#X connect 20 0 18 0;
#X connect 21 0 20 0;
#X connect 22 0 23 2;
#X connect 23 0 7 0;