#N canvas 137 104 448 333 10;
#X obj 33 166 exists;
#X floatatom 36 202 5 0 0 0 - - -;
#X obj 37 226 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X msg 65 91 symbol unexistent?;
#X msg 41 60 symbol exists.tcl;
#X obj 239 183 exists;
#X floatatom 242 219 5 0 0 0 - - -;
#X obj 243 243 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
-1 -1;
#X msg 247 77 bang;
#X msg 274 136 symbol /tmp/;
#X msg 290 158 /tmp;
#X obj 110 306 pddp/pddplink http://tcl.tk/man/tcl8.5/TclCmd/file.htm#M15
;
#X text 18 294 this is a clone of this command:;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 3 0 0 0;
#X connect 4 0 0 0;
#X connect 5 0 6 0;
#X connect 6 0 7 0;
#X connect 8 0 5 0;
#X connect 9 0 5 1;
#X connect 10 0 5 1;