#N canvas 68 131 662 379 24;
#X obj 38 247 tot .;
#X obj 38 29 loadbang;
#X msg 38 299;
#X msg 147 247 set;
#X obj 38 79 t b b b;
#X obj 231 247 tot .;
#X msg 231 299;
#X msg 78 188 query concat set patchlevel [info patchlevel];
#X msg 38 138 query concat set version [info tclversion];
#X connect 0 0 2 0;
#X connect 1 0 4 0;
#X connect 3 0 2 0;
#X connect 3 0 6 0;
#X connect 4 0 8 0;
#X connect 4 1 7 0;
#X connect 4 2 3 0;
#X connect 5 0 6 0;
#X connect 7 0 5 0;
#X connect 8 0 0 0;