#N canvas 0 0 768 388 10;
#X obj 92 130 pack s s;
#X obj 92 191 unpack s s;
#X obj 157 220 makefilename %%s/%s;
#X msg 157 249 set \$1;
#X obj 92 309 makefilename NOTHING;
#X symbolatom 92 337 20 0 0 0 - - -;
#X symbolatom 159 271 20 0 0 0 - - -;
#X symbolatom 92 62 20 0 0 0 dir - -;
#X symbolatom 143 113 20 0 0 0 file - -;
#X obj 452 138 pack s s;
#X obj 452 169 unpack s s;
#X obj 452 287 makefilename NOTHING;
#X symbolatom 452 315 20 0 0 0 - - -;
#X symbolatom 555 251 20 0 0 0 - - -;
#X symbolatom 452 70 20 0 0 0 file - -;
#X symbolatom 503 121 20 0 0 0 dir - -;
#X text 448 16 or the other way around \, even easier:;
#X msg 517 227 set \$1/%s;
#X msg 143 89 symbol file;
#X msg 92 37 symbol dir;
#X msg 503 100 symbol dir;
#X msg 452 49 symbol file;
#X text 207 141 pd-0.40 and up;
#X msg 206 159 set symbol \$1/\$2;
#X msg 206 183;
#X connect 0 0 1 0;
#X connect 0 0 23 0;
#X connect 1 0 4 0;
#X connect 1 1 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 0;
#X connect 3 0 6 0;
#X connect 4 0 5 0;
#X connect 7 0 0 0;
#X connect 8 0 0 1;
#X connect 9 0 10 0;
#X connect 10 0 11 0;
#X connect 10 1 17 0;
#X connect 11 0 12 0;
#X connect 14 0 9 0;
#X connect 15 0 9 1;
#X connect 17 0 11 0;
#X connect 17 0 13 0;
#X connect 18 0 8 0;
#X connect 19 0 7 0;
#X connect 20 0 15 0;
#X connect 21 0 14 0;
#X connect 23 0 24 0;
