#N canvas 0 0 562 500 10;
#N canvas 0 0 450 300 square 0;
#X obj 163 192 -~;
#X obj 163 118 -~ 0.5;
#X obj 179 146 wrap~;
#X obj 179 169 -~ 0.5;
#X obj 163 93 phasor~ \$1;
#X obj 163 223 outlet~;
#X obj 228 36 inlet;
#X obj 163 36 inlet~;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 0 1;
#X connect 4 0 1 0;
#X connect 6 0 4 1;
#X connect 7 0 4 0;
#X restore 65 130 pd square;
#X floatatom 65 102 5 0 0 0 - - -;
#X obj 66 229 tabwrite~ \$0-x;
#N canvas 0 0 450 300 (subpatch) 0;
#X array \$0-x 100 float 0;
#X coords 0 1 99 -1 200 140 1;
#X restore 242 38 graph;
#X msg 95 208 bang;
#X obj 66 181 rzero~ 1;
#X msg 65 75 1000;
#X connect 0 0 5 0;
#X connect 1 0 0 0;
#X connect 4 0 2 0;
#X connect 5 0 2 0;
#X connect 6 0 1 0;