#N canvas 385 331 1254 723 10;
#X obj 673 98 # -;
#X obj 673 47 #for (0 0) (240 320) (1 1);
#X obj 697 81 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 673 30 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
-1;
#X obj 673 122 # *;
#X floatatom 697 123 5 0 0 0 - - -;
#X obj 673 147 #inner (2 3 # 1 0 0 0 1 0);
#X obj 697 98 #for (0 0) (1 320) (1 1);
#X obj 552 98 #in;
#X obj 552 60 loadbang;
#X obj 510 155 #out window;
#X obj 510 98 #store;
#X msg 582 117 0 #;
#X msg 552 79 load pure-data.jpg;
#X obj 510 117 # * (1 1 0);
#X obj 510 66 t b b;
#X obj 510 20 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
1;
#X obj 510 37 metro 33.3333;
#X obj 958 64 # rand;
#X obj 958 83 display;
#X msg 1018 63 op sqrt;
#X msg 958 45 10 # 0 1 2;
#X msg 1032 35 op ~;
#X msg 1034 13 op !;
#X floatatom 968 150 5 0 0 0 - - -;
#X floatatom 968 187 10 0 0 0 - - -;
#X obj 968 168 #expr pow(fact($f1) \, 2);
#X floatatom 968 218 5 0 0 0 - - -;
#X floatatom 968 255 10 0 0 0 - - -;
#X obj 968 236 #expr fact($f1)**2;
#X floatatom 968 288 5 0 0 0 - - -;
#X floatatom 968 325 10 0 0 0 - - -;
#X floatatom 975 351 5 0 0 0 - - -;
#X floatatom 975 407 10 0 0 0 - - -;
#X obj 975 388 pow 2;
#X obj 975 369 #expr fact($f1);
#X obj 768 378 expr fact($f1);
#X floatatom 768 397 10 0 0 0 - - -;
#X floatatom 768 360 5 0 0 0 - - -;
#X obj 32 42 # + (2 3 5 7);
#X obj 32 61 #is (2 2 # 72 53 35 27);
#X msg 32 314 7 s # 100 200 300 400 500 600 700;
#X obj 32 333 # >> (s 1);
#X msg 32 254 7 b # 30 60 90 120 150 180 210;
#X obj 32 273 # >> (b 1);
#X obj 842 576 # min;
#X msg 842 557 7 \$1 # 30 60 90 120 150 180 210;
#X msg 1039 557 7 \$1 # 15 67 93 60 250 80 110;
#X obj 976 534 t s s;
#X obj 976 452 #type-gui;
#X obj 882 576 # max;
#X obj 842 595 #cast;
#X obj 882 595 #cast;
#X obj 888 615 display;
#X obj 888 635 display;
#X obj 882 656 #is (30 67 93 120 250 180 210);
#X obj 842 676 #is (15 60 90 60 150 80 110);
#X obj 32 391 # ** -1;
#X msg 32 372 42;
#X obj 32 410 #is 0;
#X obj 32 292 #is (7 b # 15 30 45 60 75 90 105);
#X obj 32 352 #is (7 s # 50 100 150 200 250 300 350);
#X msg 32 23 2 2 # 70 50 30 20;
#X obj 968 306 #expr fact($f1)/$f1;
#X obj 32 121 #is (2 2 # 72 53 35 27);
#X msg 32 83 2 2 # 70 50 30 20;
#X obj 32 102 # * (2 3 5 7) \, op +;
#X msg 32 143 2 2 # 70 50 30 20;
#X obj 32 162 # * (2 3 5 7);
#X obj 32 181 #is (2 2 # 140 150 150 140);
#N canvas 0 0 737 474 complex-numops 0;
#X obj 7 81 t a;
#X obj 359 75 display;
#X obj 15 104 # C.*conj (2 f # 3 5);
#X obj 22 128 # C./conj (2 f # 3 5);
#X obj 14 217 # C./ (2 f # 3 5);
#X obj 7 193 # C.* (2 f # 3 5);
#X msg 7 61 2 2 f # 4 2 4 -2;
#X obj 166 12 # C.sq- (2 f # 7 5);
#X obj 359 56 # C.abs- (2 f # 7 5);
#X text 358 116 sqrt(18) 0 58 0;
#X obj 166 31 #is (2 2 f # 0 18 -40 42);
#X obj 520 89 #is (2 2 f # 18 0 58 0);
#X obj 15 169 #is (2 2 f # 22 -14 2 -26);
#X obj 22 148 #is (2 2 f # 4 2 4 -2);
#X obj 14 236 #is (2 2 f # 4 2 4 -2);
#X obj 7 258 #is (2 2 f # 2 26 22 14);
#X connect 0 0 2 0;
#X connect 0 0 5 0;
#X connect 0 0 7 0;
#X connect 0 0 8 0;
#X connect 2 0 3 0;
#X connect 2 0 12 0;
#X connect 3 0 13 0;
#X connect 4 0 14 0;
#X connect 5 0 4 0;
#X connect 5 0 15 0;
#X connect 6 0 0 0;
#X connect 7 0 10 0;
#X connect 8 0 1 0;
#X restore 469 261 pd complex-numops;
#X obj 390 379 display;
#X msg 390 341 list f # 1;
#X obj 390 360 # exp (f #);
#X obj 555 452 display;
#X obj 555 433 # C.exp (2 f #);
#X msg 561 373 list 2 f # 1 0;
#X msg 561 393 list 2 f # 0 1.5708;
#X msg 561 413 list 2 f # 2.5 3.14159;
#X msg 322 470 3 f # 3.14159 2.71828 1.61804;
#X obj 322 489 # % (f # 12);
#X obj 322 508 display;
#X obj 327 533 #is (3 f # 3.14159 2.71828 1.61804);
#X obj 283 645 # ** 2;
#X msg 283 599 42;
#X obj 375 645 # ** 1;
#X obj 445 645 # ** 0;
#X obj 515 645 # ** -1;
#X obj 283 664 #is 1764;
#X obj 375 664 #is 42;
#X obj 445 664 #is 1;
#X obj 515 664 #is 0;
#N canvas 0 0 450 300 rol-et-ror 0;
#X msg 50 181 op ror;
#X obj 41 53 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 56 53 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 71 53 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 86 53 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 101 53 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 116 53 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 131 53 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1 1
;
#X obj 146 53 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0 1
;
#X obj 71 26 loadbang;
#X obj 41 89 #inner (128 64 32 16 8 4 2 1);
#X msg 50 161 op rol;
#X obj 41 278 #print;
#X obj 52 116 display;
#X obj 19 253 display;
#X obj 192 202 #outer >> (7 6 5 4 3 2 1 0);
#X obj 192 222 # & 1;
#X obj 191 246 #unpack 8;
#X obj 273 276 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 258 276 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 243 276 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 228 276 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 213 276 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 198 276 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 0
1;
#X obj 183 276 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 168 276 tgl 15 0 empty empty empty 0 -6 0 8 -262144 -1 -1 1
1;
#X obj 41 137 #cast b;
#X obj 41 224 # rol;
#X obj 130 171 #cast b;
#X floatatom 130 133 5 0 0 0 - - -;
#X obj 192 183 #cast i;
#X obj 130 114 loadbang;
#X obj 130 152 t b f;
#X obj 41 70 #pack 8 \, \, \, \, \, \, \, \, \, \, \,;
#X connect 0 0 27 0;
#X connect 1 0 33 0;
#X connect 2 0 33 1;
#X connect 3 0 33 2;
#X connect 4 0 33 3;
#X connect 5 0 33 4;
#X connect 6 0 33 5;
#X connect 7 0 33 6;
#X connect 8 0 33 7;
#X connect 9 0 2 0;
#X connect 9 0 1 0;
#X connect 9 0 4 0;
#X connect 9 0 7 0;
#X connect 10 0 13 0;
#X connect 10 0 26 0;
#X connect 11 0 27 0;
#X connect 15 0 16 0;
#X connect 16 0 17 0;
#X connect 17 0 25 0;
#X connect 17 1 24 0;
#X connect 17 2 23 0;
#X connect 17 3 22 0;
#X connect 17 4 21 0;
#X connect 17 5 20 0;
#X connect 17 6 19 0;
#X connect 17 7 18 0;
#X connect 26 0 27 0;
#X connect 27 0 12 0;
#X connect 27 0 14 0;
#X connect 27 0 30 0;
#X connect 28 0 27 1;
#X connect 29 0 32 0;
#X connect 30 0 15 0;
#X connect 31 0 29 0;
#X connect 32 0 33 0;
#X connect 32 1 28 0;
#X connect 33 0 10 0;
#X restore 706 220 pd rol-et-ror;
#X obj 660 614 # weight;
#X obj 666 594 #print \, base 2;
#X msg 660 571 123456;
#X obj 660 633 #is 6;
#X obj 36 487 # C.sqrt;
#X obj 36 615 display;
#X msg 37 464 list f 0 1;
#X obj 36 507 # C.sqrt;
#X obj 58 589 display;
#X obj 57 533 # sq- (f 0 0);
#X obj 72 559 #fold +;
#X connect 0 0 4 0;
#X connect 1 0 0 0;
#X connect 2 0 7 0;
#X connect 3 0 1 0;
#X connect 4 0 6 0;
#X connect 5 0 4 1;
#X connect 7 0 0 1;
#X connect 8 0 11 1;
#X connect 9 0 13 0;
#X connect 11 0 14 0;
#X connect 12 0 14 1;
#X connect 13 0 8 0;
#X connect 14 0 10 0;
#X connect 15 0 11 0;
#X connect 15 1 12 0;
#X connect 16 0 17 0;
#X connect 17 0 15 0;
#X connect 18 0 19 0;
#X connect 20 0 18 0;
#X connect 21 0 18 0;
#X connect 22 0 18 0;
#X connect 23 0 18 0;
#X connect 24 0 26 0;
#X connect 26 0 25 0;
#X connect 27 0 29 0;
#X connect 29 0 28 0;
#X connect 30 0 63 0;
#X connect 32 0 35 0;
#X connect 34 0 33 0;
#X connect 35 0 34 0;
#X connect 36 0 37 0;
#X connect 38 0 36 0;
#X connect 39 0 40 0;
#X connect 40 0 65 0;
#X connect 41 0 42 0;
#X connect 42 0 61 0;
#X connect 43 0 44 0;
#X connect 44 0 60 0;
#X connect 45 0 51 0;
#X connect 46 0 45 0;
#X connect 46 0 50 0;
#X connect 47 0 45 1;
#X connect 47 0 50 1;
#X connect 48 0 46 0;
#X connect 48 1 47 0;
#X connect 49 0 48 0;
#X connect 50 0 52 0;
#X connect 51 0 54 0;
#X connect 51 0 56 0;
#X connect 52 0 53 0;
#X connect 52 0 55 0;
#X connect 57 0 59 0;
#X connect 58 0 57 0;
#X connect 60 0 41 0;
#X connect 61 0 58 0;
#X connect 62 0 39 0;
#X connect 63 0 31 0;
#X connect 64 0 67 0;
#X connect 65 0 66 0;
#X connect 66 0 64 0;
#X connect 67 0 68 0;
#X connect 68 0 69 0;
#X connect 69 0 43 0;
#X connect 72 0 73 0;
#X connect 73 0 71 0;
#X connect 75 0 74 0;
#X connect 76 0 75 0;
#X connect 77 0 75 0;
#X connect 78 0 75 0;
#X connect 79 0 80 0;
#X connect 80 0 81 0;
#X connect 83 0 88 0;
#X connect 84 0 83 0;
#X connect 84 0 85 0;
#X connect 84 0 86 0;
#X connect 84 0 87 0;
#X connect 85 0 89 0;
#X connect 86 0 90 0;
#X connect 87 0 91 0;
#X connect 93 0 96 0;
#X connect 95 0 93 0;
#X connect 95 0 94 0;
#X connect 97 0 100 0;
#X connect 99 0 97 0;
#X connect 100 0 98 0;
#X connect 100 0 102 0;
#X connect 102 0 103 0;
#X connect 103 0 101 0;