chose/extra/list-abs/list-rot.pd

#N canvas 336 258 575 357 10;
#X obj 170 253 list prepend;
#X obj 151 44 inlet;
#X obj 256 47 inlet;
#X text 257 25 how often to rotate;
#X obj 151 280 list;
#X text 146 24 list to rotate;
#X obj 151 310 outlet;
#X text 278 232 move right part of list to left.;
#X obj 256 174 mod \$1;
#X obj 256 152 f \$1;
#X obj 170 212 list split \$1;
#X obj 151 70 t b a b b a;
#X obj 293 153 list-len;
#X connect 0 0 4 1;
#X connect 1 0 11 0;
#X connect 2 0 9 0;
#X connect 4 0 6 0;
#X connect 8 0 10 1;
#X connect 9 0 8 0;
#X connect 10 0 0 0;
#X connect 10 1 0 1;
#X connect 11 0 4 0;
#X connect 11 1 10 0;
#X connect 11 2 0 1;
#X connect 11 3 9 0;
#X connect 11 4 12 0;
#X connect 12 0 8 1;