#N canvas 288 81 555 678 10;
#X obj 68 19 inlet;
#X obj 68 602 outlet;
#X obj 88 285 f \$2;
#X obj 146 406 until;
#X obj 185 446 + 1;
#X obj 146 497 tabread \$1;
#X obj 215 444 symbol \$1;
#X msg 215 465 set \$1;
#X obj 106 256 unpack 0 0 s;
#X obj 153 49 s \$0-reset;
#X obj 225 496 r \$0-reset;
#X obj 194 406 f \$3;
#X obj 146 446 f;
#X obj 194 359 r \$0-reset;
#X obj 88 326 moses;
#X obj 88 118 list prepend;
#X obj 88 146 route 0 1 2 3;
#X obj 131 180 list append 0;
#X obj 68 51 t b a a b;
#N canvas 0 0 450 300 rot1 0;
#X obj 173 193 list prepend;
#X obj 151 44 inlet;
#X obj 259 115 inlet;
#X text 311 115 how often to rotate;
#X obj 151 220 list;
#X text 198 43 list to rotate;
#X obj 151 250 outlet;
#X text 267 194 move right part of list to left.;
#X obj 151 70 t b a b;
#X obj 174 152 list split 1;
#X connect 0 0 4 1;
#X connect 1 0 8 0;
#X connect 2 0 9 1;
#X connect 4 0 6 0;
#X connect 8 0 4 0;
#X connect 8 1 9 0;
#X connect 8 2 0 1;
#X connect 9 0 0 0;
#X connect 9 1 0 1;
#X restore 131 225 pd rot1;
#X msg 146 517 add2 \$1;
#X msg 225 518 set;
#N canvas 0 0 575 324 msgbox 0;
#X obj 94 113 inlet;
#X msg 166 148;
#X obj 88 193 outlet;
#X text 163 108 hidden msgbox to not clutter the main patch;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X restore 68 568 pd msgbox;
#X obj 168 91 list length;
#X connect 0 0 18 0;
#X connect 2 0 14 0;
#X connect 3 0 12 0;
#X connect 4 0 12 1;
#X connect 5 0 20 0;
#X connect 6 0 7 0;
#X connect 7 0 5 0;
#X connect 8 0 2 0;
#X connect 8 1 11 0;
#X connect 8 2 6 0;
#X connect 10 0 21 0;
#X connect 11 0 12 1;
#X connect 12 0 4 0;
#X connect 12 0 5 0;
#X connect 13 0 11 0;
#X connect 14 1 3 0;
#X connect 15 0 16 0;
#X connect 16 0 2 0;
#X connect 16 1 2 0;
#X connect 16 2 17 0;
#X connect 16 3 19 0;
#X connect 17 0 19 0;
#X connect 18 0 22 0;
#X connect 18 1 15 0;
#X connect 18 2 23 0;
#X connect 18 3 9 0;
#X connect 19 0 8 0;
#X connect 20 0 22 0;
#X connect 21 0 22 0;
#X connect 22 0 1 0;
#X connect 23 0 15 1;