#N canvas 268 62 629 601 12;
#X obj 103 131 t f f;
#X obj 19 442 cnv 15 500 50 empty empty empty 20 12 0 14 -179443 -66577
0;
#X text 33 442 arg 1: abstraction name;
#X text 14 389 [container_name] obj x y [obj_name] arguments....;
#N canvas 763 124 566 416 1014-container 0;
#X restore 361 25 pd \$0-container;
#X msg 30 209 clear;
#N canvas 1033 547 494 344 send 0;
#X obj 36 37 inlet build;
#X obj 71 69 ii \$0;
#X text 22 215 in Max \, you can substitute arguments more flexibly
;
#X obj 255 245 s pd-$0-container;
#X text 23 230 I seem to remember. If pd did that \, too;
#X text 23 245 this whole subpatch could be;
#X obj 71 100 makefilename pd-%d-container;
#X msg 71 127 set \$1;
#X obj 36 155 iem_s;
#X connect 0 0 8 0;
#X connect 1 0 6 0;
#X connect 6 0 7 0;
#X connect 7 0 8 1;
#X restore 103 367 pd send;
#X obj 250 270 inlet arguments;
#X obj 82 63 t b b;
#N canvas 0 0 462 312 ini 0;
#X obj 39 133 s lbang;
#X obj 39 113 del 100;
#X obj 39 153 s \$0-lbang;
#X obj 39 61 inlet whenBuilt;
#X text 32 191 still could do with a more elegant solution...;
#X connect 1 0 0 0;
#X connect 1 0 2 0;
#X connect 3 0 1 0;
#X restore 18 133 pd ini;
#X obj 82 96 uzi \$2;
#X obj 125 13 inlet instances;
#X obj 194 165 ii \$1;
#X obj 103 225 pack f f f s;
#X msg 103 256 obj \$3 \$2 \$4 \$1;
#X obj 194 189 pp symbol;
#N canvas 0 0 466 316 xy 0;
#X obj 30 22 inlet i;
#X obj 30 67 * 20;
#X obj 101 74 / 300;
#X obj 101 97 i;
#X obj 30 167 outlet y;
#X obj 101 167 outlet x;
#X obj 30 97 % 300;
#X obj 101 122 * 200;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 1 0 6 0;
#X connect 2 0 3 0;
#X connect 3 0 7 0;
#X connect 6 0 4 0;
#X connect 7 0 5 0;
#X restore 138 173 pd xy;
#X obj 103 342 pp;
#X obj 103 317 any;
#X obj 29 13 inlet build;
#X obj 103 286 t b a;
#X obj 208 127 inlet absName;
#X obj 183 40 ii \$2;
#X obj 183 64 > 0;
#X obj 183 88 sel 1;
#X text 33 458 arg 2: number to construct;
#X text 427 471 IEM \, uzi...;
#X text 16 406 Here \, first arg of abstraction must be (i) - program
abstractions acordingly ***not RRAD compliant***;
#X connect 0 0 13 0;
#X connect 0 1 16 0;
#X connect 5 0 6 0;
#X connect 7 0 18 1;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 8 1 5 0;
#X connect 10 1 0 0;
#X connect 11 0 10 1;
#X connect 12 0 15 0;
#X connect 13 0 14 0;
#X connect 14 0 20 0;
#X connect 15 0 13 3;
#X connect 16 0 13 1;
#X connect 16 1 13 2;
#X connect 17 0 6 0;
#X connect 18 0 17 0;
#X connect 19 0 8 0;
#X connect 20 0 18 0;
#X connect 20 1 17 1;
#X connect 21 0 15 0;
#X connect 22 0 23 0;
#X connect 23 0 24 0;
#X connect 24 0 8 0;