diff --git a/puredata/piano_access_radio_notes.pd b/puredata/piano_access_radio_notes.pd
new file mode 100644
index 0000000..9a491ac
--- /dev/null
+++ b/puredata/piano_access_radio_notes.pd
@@ -0,0 +1,344 @@
+#N canvas 816 89 623 470 10;
+#X obj 322 198 spigot;
+#X obj 371 183 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#N canvas 676 408 512 395 buildOSC 0;
+#X obj 319 66 t a b;
+#X msg 456 84 [;
+#X msg 34 327 ];
+#X obj 68 236 r X1;
+#X obj 98 236 r X2;
+#X obj 128 236 r X3;
+#X obj 158 236 r X4;
+#X obj 53 266 f;
+#X obj 34 126 t b b a;
+#X obj 254 345 outlet;
+#X obj 140 17 inlet;
+#X obj 188 236 r PS;
+#X obj 88 284 pack f f f f f;
+#X msg 319 112 sendtyped /note/onoff f \$1;
+#X msg 254 141 sendtyped /note/velocity f \$1;
+#X msg 88 307 sendtyped /note/x fffff \$1 \$2 \$3 \$4 \$5;
+#X msg 73 199 sendtyped /note/id i \$1;
+#X msg 167 170 sendtyped /note/pitch f \$1;
+#X obj 140 39 unpack f f f f;
+#X connect 0 0 13 0;
+#X connect 0 1 1 0;
+#X connect 1 0 9 0;
+#X connect 2 0 9 0;
+#X connect 3 0 7 1;
+#X connect 4 0 12 1;
+#X connect 5 0 12 2;
+#X connect 6 0 12 3;
+#X connect 7 0 12 0;
+#X connect 8 0 2 0;
+#X connect 8 1 7 0;
+#X connect 8 2 16 0;
+#X connect 10 0 18 0;
+#X connect 11 0 12 4;
+#X connect 12 0 15 0;
+#X connect 13 0 9 0;
+#X connect 14 0 9 0;
+#X connect 15 0 9 0;
+#X connect 16 0 9 0;
+#X connect 17 0 9 0;
+#X connect 18 0 8 0;
+#X connect 18 1 17 0;
+#X connect 18 2 14 0;
+#X connect 18 3 0 0;
+#X restore 412 194 pd buildOSC for all;
+#X obj 117 121 o.io.slipserial;
+#X msg 243 142 devices;
+#X msg 243 165 close;
+#X obj 117 80 packOSC;
+#X obj 117 55 r OSC;
+#X obj 117 144 unpackOSC;
+#X obj 117 167 routeOSC /hello;
+#X obj 117 190 s HELLO;
+#X obj 34 120 print OSC;
+#X obj 34 93 spigot;
+#X obj 83 58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0 1
+;
+#X obj 412 217 s OSC;
+#X obj 412 155 r NOTE;
+#X obj 322 225 print NOTE;
+#X text 413 134 /id /pitch /velocity /onoff;
+#X floatatom 543 325 5 0 0 0 - - -;
+#X obj 543 347 s PS;
+#X obj 494 236 tgl 25 0 empty empty hello 32 7 0 15 -159808 -257985
+-159808 1 1;
+#X obj 543 263 loadbang;
+#X msg 543 286 1;
+#X obj 494 286 sel 1;
+#X obj 34 163 spigot;
+#X obj 83 148 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 34 190 print HELLO;
+#X text 103 24 * a wireless "field synth" - based on 'esp now' protocol
+;
+#X msg 243 98 devicename /dev/ttyACM0 \, baud 57600 \, pollintervall
+1 \, verbose 1;
+#X msg 204 58 devicename /dev/tty.usbmodem4871051 \, baud 57600 \,
+pollintervall 1 \, verbose 1;
+#X msg 494 315 2000;
+#N canvas 32 106 578 582 fruits 0;
+#X obj 13 15 cnv 15 550 550 empty empty empty 20 12 0 14 -228856 -204800
+0;
+#N canvas 60 317 1181 582 (subpatch) 0;
+#N canvas 1 89 450 250 (subpatch) 0;
+#X array fruit_energy 10 float 3;
+#A 0 0.00029251 0.099962 0.099962 0.099962 0.099962 0 0 0 0 0;
+#X coords 0 0.2 10 0 200 50 1 0 0;
+#X restore 15 36 graph;
+#X obj 24 439 pack f f;
+#X msg 157 421 0;
+#X obj 478 114 array sum;
+#X floatatom 183 18 5 0 0 0 sum FRUIT_ENERGY -;
+#X obj 478 91 metro 100;
+#X obj 130 342 loadbang;
+#X obj 522 19 loadbang;
+#X obj 522 42 t b b;
+#X obj 24 371 snapshot~;
+#X msg 24 319 start;
+#X msg 74 319 stop;
+#X obj 69 396 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 24 394 5 0 0 0 - - -;
+#X obj 130 378 t b b;
+#X obj 69 416 metro 50;
+#X obj 24 348 ear~ 2000 10000;
+#X obj 478 137 max 0.001;
+#X obj 302 30 loadbang;
+#X msg 302 53 \; pd dsp 1;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array we_sequence 20 float 3;
+#A 0 1 0.86 0.85 0.72 0.7 0.81 0.68 0.48 1 0.79 0.74 0.68 0.53 0.56
+0.92 0.86 0.86 0.8 0.8 0.87;
+#X coords 0 1 20 0 200 100 1 0 0;
+#X restore 955 156 graph;
+#X obj 805 55 f;
+#X obj 838 55 + 1;
+#X obj 805 78 mod 20;
+#X floatatom 805 101 5 0 0 0 - - -;
+#X obj 805 123 tabread we_sequence;
+#X obj 805 35 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X floatatom 805 146 5 0 0 0 - - -;
+#X obj 478 163 *;
+#X obj 895 78 metro 60000;
+#X obj 895 58 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 895 35 loadbang;
+#X msg 975 35 \; we_sequence const 1;
+#X obj 955 231 hradio 10 1 0 20 empty empty empty 0 -8 0 10 -257985
+-4160 -1 6;
+#X obj 478 184 +;
+#X obj 300 169 tgl 15 0 empty WORLD_SLEEP set_to_stop_the_world 17
+7 0 10 -262144 -1 -1 0 1;
+#X obj 805 168 s F_SEQ;
+#X obj 214 439 pack f f;
+#X obj 320 342 loadbang;
+#X obj 214 371 snapshot~;
+#X msg 214 319 start;
+#X msg 264 319 stop;
+#X obj 259 396 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 214 394 5 0 0 0 - - -;
+#X obj 320 378 t b b;
+#X obj 259 416 metro 50;
+#X obj 214 348 ear~ 2000 10000;
+#X msg 347 421 1;
+#X obj 404 439 pack f f;
+#X obj 510 342 loadbang;
+#X obj 404 371 snapshot~;
+#X msg 404 319 start;
+#X msg 454 319 stop;
+#X obj 449 396 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 404 394 5 0 0 0 - - -;
+#X obj 510 378 t b b;
+#X obj 449 416 metro 50;
+#X obj 404 348 ear~ 2000 10000;
+#X obj 594 439 pack f f;
+#X obj 700 342 loadbang;
+#X obj 594 371 snapshot~;
+#X msg 594 319 start;
+#X msg 644 319 stop;
+#X obj 639 396 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 594 394 5 0 0 0 - - -;
+#X obj 700 378 t b b;
+#X obj 639 416 metro 50;
+#X obj 594 348 ear~ 2000 10000;
+#X msg 537 421 2;
+#X msg 727 421 3;
+#X obj 784 439 pack f f;
+#X obj 890 342 loadbang;
+#X obj 784 371 snapshot~;
+#X msg 784 319 start;
+#X msg 834 319 stop;
+#X obj 829 396 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 784 394 5 0 0 0 - - -;
+#X obj 890 378 t b b;
+#X obj 829 416 metro 50;
+#X obj 784 348 ear~ 2000 10000;
+#X msg 917 421 4;
+#X obj 24 416 * 0.1;
+#X obj 214 416 * 0.1;
+#X obj 404 416 * 0.1;
+#X obj 594 416 * 0.1;
+#X obj 784 416 * 0.1;
+#X msg 638 32 \; fruit_energy const 0;
+#X msg 549 96 symbol fruit_energy;
+#X obj 578 202 s FRUIT_ENERGY;
+#X msg 24 462 \; fruit_energy \$2 \$1;
+#X msg 214 462 \; fruit_energy \$2 \$1;
+#X msg 404 462 \; fruit_energy \$2 \$1;
+#X msg 594 462 \; fruit_energy \$2 \$1;
+#X msg 784 461 \; fruit_energy \$2 \$1;
+#X obj 24 253 r DO;
+#X obj 74 276 r DO_DONE;
+#X obj 214 252 r RE;
+#X obj 264 276 r RE_DONE;
+#X obj 404 253 r MI;
+#X obj 454 276 r MI_DONE;
+#X obj 594 253 r FA;
+#X obj 644 276 r FA_DONE;
+#X obj 784 253 r SOL;
+#X obj 834 276 r SOL_DONE;
+#X connect 1 0 89 0;
+#X connect 2 0 1 1;
+#X connect 3 0 17 0;
+#X connect 5 0 3 0;
+#X connect 6 0 14 0;
+#X connect 7 0 8 0;
+#X connect 8 0 5 0;
+#X connect 8 1 87 0;
+#X connect 8 1 86 0;
+#X connect 9 0 13 0;
+#X connect 10 0 16 0;
+#X connect 11 0 16 0;
+#X connect 12 0 15 0;
+#X connect 13 0 81 0;
+#X connect 14 0 12 0;
+#X connect 14 1 2 0;
+#X connect 15 0 9 0;
+#X connect 16 0 9 0;
+#X connect 17 0 28 0;
+#X connect 18 0 19 0;
+#X connect 21 0 22 0;
+#X connect 21 0 23 0;
+#X connect 22 0 21 1;
+#X connect 23 0 24 0;
+#X connect 24 0 25 0;
+#X connect 24 0 33 0;
+#X connect 25 0 27 0;
+#X connect 26 0 21 0;
+#X connect 27 0 28 1;
+#X connect 27 0 36 0;
+#X connect 28 0 34 0;
+#X connect 29 0 26 0;
+#X connect 30 0 29 0;
+#X connect 31 0 30 0;
+#X connect 34 0 88 0;
+#X connect 35 0 34 1;
+#X connect 37 0 90 0;
+#X connect 38 0 44 0;
+#X connect 39 0 43 0;
+#X connect 40 0 46 0;
+#X connect 41 0 46 0;
+#X connect 42 0 45 0;
+#X connect 43 0 82 0;
+#X connect 44 0 42 0;
+#X connect 44 1 47 0;
+#X connect 45 0 39 0;
+#X connect 46 0 39 0;
+#X connect 47 0 37 1;
+#X connect 48 0 91 0;
+#X connect 49 0 55 0;
+#X connect 50 0 54 0;
+#X connect 51 0 57 0;
+#X connect 52 0 57 0;
+#X connect 53 0 56 0;
+#X connect 54 0 83 0;
+#X connect 55 0 53 0;
+#X connect 55 1 68 0;
+#X connect 56 0 50 0;
+#X connect 57 0 50 0;
+#X connect 58 0 92 0;
+#X connect 59 0 65 0;
+#X connect 60 0 64 0;
+#X connect 61 0 67 0;
+#X connect 62 0 67 0;
+#X connect 63 0 66 0;
+#X connect 64 0 84 0;
+#X connect 65 0 63 0;
+#X connect 65 1 69 0;
+#X connect 66 0 60 0;
+#X connect 67 0 60 0;
+#X connect 68 0 48 1;
+#X connect 69 0 58 1;
+#X connect 70 0 93 0;
+#X connect 71 0 77 0;
+#X connect 72 0 76 0;
+#X connect 73 0 79 0;
+#X connect 74 0 79 0;
+#X connect 75 0 78 0;
+#X connect 76 0 85 0;
+#X connect 77 0 75 0;
+#X connect 77 1 80 0;
+#X connect 78 0 72 0;
+#X connect 79 0 72 0;
+#X connect 80 0 70 1;
+#X connect 81 0 1 0;
+#X connect 82 0 37 0;
+#X connect 83 0 48 0;
+#X connect 84 0 58 0;
+#X connect 85 0 70 0;
+#X connect 87 0 3 2;
+#X connect 94 0 10 0;
+#X connect 95 0 11 0;
+#X connect 96 0 40 0;
+#X connect 97 0 41 0;
+#X connect 98 0 51 0;
+#X connect 99 0 52 0;
+#X connect 100 0 61 0;
+#X connect 101 0 62 0;
+#X connect 102 0 73 0;
+#X connect 103 0 74 0;
+#X coords 0 -1 1 1 220 100 1 5 5;
+#X restore 324 30 pd;
+#X obj 49 164 radio_do;
+#X obj 182 42 radio_re;
+#X obj 351 203 radio_mi;
+#X obj 115 364 radio_fa;
+#X obj 325 378 radio_sol;
+#X restore 160 291 pd fruits;
+#X connect 0 0 16 0;
+#X connect 1 0 0 1;
+#X connect 2 0 14 0;
+#X connect 3 0 8 0;
+#X connect 4 0 3 1;
+#X connect 5 0 3 1;
+#X connect 6 0 3 0;
+#X connect 7 0 6 0;
+#X connect 7 0 12 0;
+#X connect 8 0 9 0;
+#X connect 9 0 10 0;
+#X connect 9 0 24 0;
+#X connect 12 0 11 0;
+#X connect 13 0 12 1;
+#X connect 15 0 0 0;
+#X connect 15 0 2 0;
+#X connect 18 0 19 0;
+#X connect 20 0 23 0;
+#X connect 21 0 22 0;
+#X connect 22 0 20 0;
+#X connect 23 0 30 0;
+#X connect 23 1 18 0;
+#X connect 24 0 26 0;
+#X connect 25 0 24 1;
+#X connect 28 0 3 1;
+#X connect 29 0 3 1;
+#X connect 30 0 18 0;
diff --git a/puredata/radio_do.pd b/puredata/radio_do.pd
new file mode 100644
index 0000000..ffd73d5
--- /dev/null
+++ b/puredata/radio_do.pd
@@ -0,0 +1,275 @@
+#N canvas 318 89 432 493 10;
+#X msg 37 337 0;
+#X obj 319 300 loadbang;
+#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 315 406 0;
+#X obj 315 429 v \$0-STATE;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 906 89 533 644 world 0;
+#X floatatom 16 78 5 0 0 0 - - -;
+#X obj 16 293 t a b;
+#X obj 16 372 spigot;
+#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
+0 1;
+#X obj 67 334 == 0;
+#X obj 16 316 sel 1;
+#X text 41 402 think;
+#X obj 16 428 gauss 1 0;
+#X floatatom 16 474 5 0 0 0 - - -;
+#X obj 16 544 sel 1;
+#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 110 504 5 0 0 0 stress - -;
+#X obj 238 555 +;
+#X obj 238 502 t a b;
+#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 238 480 8 0 0 0 - - -;
+#X obj 16 521 >;
+#X floatatom 16 137 5 0 0 0 - - -;
+#X obj 238 375 t b b;
+#X obj 285 416 sel 1 0;
+#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
+-257985 -1;
+#X obj 16 114 resample 1000;
+#X obj 238 578 max 0;
+#X text 109 114 listening speed;
+#X text 56 77 speed of happenings;
+#X text 69 210 world is quiet?;
+#X text 90 285 status of me;
+#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 16 451 abs;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array \$0-stress 100 float 2;
+#X coords 0 3 100 0 200 50 1 0 0;
+#X restore 295 45 graph;
+#X obj 238 303 loadbang;
+#X text 78 227 condition of state change;
+#X obj 238 346 metro 100;
+#N canvas 1 89 319 212 (subpatch) 0;
+#X obj 12 54 metro 100;
+#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 12 100 t a b;
+#X obj 117 77 f;
+#X obj 144 77 + 1;
+#X obj 117 100 mod 100;
+#X obj 12 11 loadbang;
+#X obj 12 77 v \$0-STRESS;
+#X obj 12 123 tabwrite \$0-stress;
+#X msg 78 11 0;
+#X connect 0 0 7 0;
+#X connect 1 0 0 0;
+#X connect 2 0 8 0;
+#X connect 2 1 3 0;
+#X connect 3 0 4 0;
+#X connect 3 0 5 0;
+#X connect 4 0 3 1;
+#X connect 5 0 8 1;
+#X connect 6 0 1 0;
+#X connect 7 0 2 0;
+#X connect 9 0 7 0;
+#X restore 473 100 pd;
+#X obj 285 393 v \$0-STATE;
+#X obj 265 525 v \$0-STRESS;
+#X obj 238 601 v \$0-STRESS;
+#X obj 67 311 v \$0-STATE;
+#X obj 16 597 outlet;
+#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 373 255 metro 50;
+#X obj 373 212 loadbang;
+#X obj 373 278 v \$0-STATE;
+#X obj 373 301 s \$0-status-now;
+#X text 378 440 working stress;
+#X text 378 460 resting relax;
+#X msg 304 462 -0.005;
+#X obj 16 39 r FRUIT_ENERGY;
+#X obj 16 210 < 0.2;
+#X msg 285 439 0.02;
+#X connect 0 0 21 0;
+#X connect 1 0 5 0;
+#X connect 1 1 37 0;
+#X connect 2 0 7 0;
+#X connect 3 0 2 1;
+#X connect 4 0 3 0;
+#X connect 5 0 2 0;
+#X connect 7 0 28 0;
+#X connect 8 0 16 0;
+#X connect 9 0 38 0;
+#X connect 11 0 16 1;
+#X connect 12 0 22 0;
+#X connect 13 0 12 0;
+#X connect 13 1 35 0;
+#X connect 14 0 32 0;
+#X connect 15 0 13 0;
+#X connect 16 0 9 0;
+#X connect 16 0 10 0;
+#X connect 17 0 20 0;
+#X connect 17 0 48 0;
+#X connect 18 0 15 0;
+#X connect 18 1 34 0;
+#X connect 19 0 49 0;
+#X connect 19 1 46 0;
+#X connect 21 0 17 0;
+#X connect 22 0 11 0;
+#X connect 22 0 36 0;
+#X connect 28 0 8 0;
+#X connect 30 0 14 0;
+#X connect 32 0 18 0;
+#X connect 34 0 19 0;
+#X connect 35 0 12 1;
+#X connect 37 0 4 0;
+#X connect 37 0 27 0;
+#X connect 39 0 40 0;
+#X connect 40 0 42 0;
+#X connect 41 0 39 0;
+#X connect 42 0 43 0;
+#X connect 46 0 15 0;
+#X connect 47 0 0 0;
+#X connect 48 0 1 0;
+#X connect 49 0 15 0;
+#X restore 167 226 pd world and me;
+#N canvas 647 167 715 368 expressions 0;
+#X obj 38 195 inlet;
+#X obj 38 276 outlet;
+#X obj 38 247 t b a;
+#X obj 240 242 s \$0-word;
+#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 148 265 + 1;
+#X floatatom 148 288 5 0 0 0 - - -;
+#N canvas 1 89 450 278 (subpatch) 0;
+#X array do1 50 float 3;
+#A 0 0.0952383 0.114286 0.114286 0.114286 0.057143 -0.0476183 -0.133332
+-0.133332 -0.133332 -0.133332 -0.0761895 0.0285717 0.0857142 0.104762
+0.104762 0.104762 0.104762 0.104762 0.0476192 -0.133332 -0.142856 -0.142856
+-0.15238 -0.123808 -0.0666658 0.0476193 0.0666668 0.0666668 0.0666668
+0.0761905 0.0761905 0.0857143 -0.123808 -0.123808 -0.123808 -0.123808
+-0.123808 -0.123808 -0.123808 -0.123808 0.0476192 0.095238 0.095238
+0.104762 0.104762 -0.161903 -0.147618 -0.133332 -0.114285 0.0952383
+;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 40 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array do2 50 float 3;
+#A 0 0.0380951 0.0666663 0.0952376 0.104761 0.123809 0.0761901 0.00952381
+-0.0476187 -0.0952374 -0.123809 -0.114285 -0.0952374 -0.0761899 -0.0476187
+-0.0285712 5.96046e-08 0.0285713 0.0476188 0.0571426 0.0476188 0.0190476
+-0.0380949 -0.104761 -0.123809 -0.104761 -0.0857137 -0.0571424 -0.0190474
+0.0190476 0.0571426 0.0857138 0.104761 0.0952376 0.0476188 -0.00952369
+-0.0571424 -0.104761 -0.142856 -0.142856 -0.133332 -0.114285 -0.0857137
+-0.0285712 0.00952381 0.0476188 0.0761901 0.0952376 0.114285 0.114285
+-0.0571424;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 200 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array do3 50 float 3;
+#A 0 -0.0190473 -0.0190473 0.0761905 -0.0190473 -0.0190473 -0.0190473
+-0.0190473 -0.114285 -0.0190473 0.114286 -0.0952373 -0.114285 8.34465e-07
+-0.00952291 -0.00952291 -0.00952291 0.133333 0.133333 8.34465e-07 -0.0190473
+-0.0190473 -0.0952371 -0.123808 -0.142856 -0.0190473 -0.00952351 0.114286
+0.133333 0.161904 0.161904 -0.00952351 -0.00952351 -0.00952351 -0.00952351
+0.0666667 0.0285717 -0.00952333 -0.0476183 -0.104761 -0.114285 -0.0952371
+-0.0571421 0.0190479 0.0857142 0.0952379 -0.00952351 -0.00952351 -0.00952351
+-0.00952351 -0.00952351;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 360 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array do4 50 float 3;
+#A 0 0.0571424 0.0857143 0.114286 0.104762 0.0857143 0.0761906 0.0380956
+-0.00952315 -0.142856 -0.0857131 -0.00952315 0.0380956 0.0761906 0.0761906
+-0.0285707 -0.0857131 -0.133332 -0.114284 -0.0952369 -0.0666656 -0.0476182
+-0.0285707 0.00952435 0.0571431 0.0571431 0.0285718 -0.00952315 -0.0761894
+-0.0476182 0.00952435 0.0476193 0.0857143 0.114286 0.0571431 5.96046e-07
+-0.0666656 -0.104761 -0.0857131 -0.0571419 -0.00952315 0.0190481 0.0571431
+0.0952381 0.0857143 5.96046e-07 -0.0476182 -0.0952369 -0.133332 -0.133332
+0.0857143;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 520 40 graph;
+#X obj 148 310 array_copier do;
+#X obj 38 224 random 4;
+#X connect 0 0 12 0;
+#X connect 2 0 1 0;
+#X connect 2 1 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 11 0;
+#X connect 11 0 4 0;
+#X connect 12 0 2 0;
+#X connect 12 0 3 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array do 50 float 3;
+#A 0 -0.0190473 -0.0190473 0.0761905 -0.0190473 -0.0190473 -0.0190473
+-0.0190473 -0.114285 -0.0190473 0.114286 -0.0952373 -0.114285 8.34465e-07
+-0.00952291 -0.00952291 -0.00952291 0.133333 0.133333 8.34465e-07 -0.0190473
+-0.0190473 -0.0952371 -0.123808 -0.142856 -0.0190473 -0.00952351 0.114286
+0.133333 0.161904 0.161904 -0.00952351 -0.00952351 -0.00952351 -0.00952351
+0.0666667 0.0285717 -0.00952333 -0.0476183 -0.104761 -0.114285 -0.0952371
+-0.0571421 0.0190479 0.0857142 0.0952379 -0.00952351 -0.00952351 -0.00952351
+-0.00952351 -0.00952351;
+#X coords 0 1 50 0 50 50 1 0 0;
+#X restore 29 26 graph;
+#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -204786
+-4160 -1 2;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -204786 -4160
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -204786
+-4160 -1 1 1;
+#X obj 88 429 s NOTE;
+#X obj 88 406 spigot;
+#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 7 397 loadbang;
+#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 280 55 loadbang;
+#X obj 280 98 metro 2000;
+#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 280 144 *;
+#X obj 355 126 r F_SEQ;
+#X obj 280 121 v \$0-STRESS;
+#X obj 280 167 v \$0-STRESS;
+#X obj 164 21 r DO;
+#X obj 48 187 r DO;
+#X obj 167 279 s DO;
+#X msg 319 323 do;
+#X obj 295 452 s DO_DONE;
+#X obj 88 306 riff1_random 200 4401 700 1000;
+#X obj 295 243 loadbang;
+#X msg 295 266 0;
+#X connect 0 0 32 0;
+#X connect 1 0 30 0;
+#X connect 2 0 5 0;
+#X connect 2 0 31 0;
+#X connect 4 0 29 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 32 0;
+#X connect 16 0 15 0;
+#X connect 17 0 16 1;
+#X connect 18 0 17 0;
+#X connect 19 0 30 0;
+#X connect 20 0 22 0;
+#X connect 21 0 25 0;
+#X connect 22 0 21 0;
+#X connect 23 0 26 0;
+#X connect 24 0 23 1;
+#X connect 25 0 23 0;
+#X connect 27 0 7 0;
+#X connect 27 0 13 0;
+#X connect 28 0 10 0;
+#X connect 30 0 32 1;
+#X connect 32 0 16 0;
+#X connect 32 3 2 0;
+#X connect 33 0 34 0;
+#X connect 34 0 32 2;
+#X coords 0 -1 1 1 100 100 2 5 5;
diff --git a/puredata/radio_fa.pd b/puredata/radio_fa.pd
new file mode 100644
index 0000000..3870441
--- /dev/null
+++ b/puredata/radio_fa.pd
@@ -0,0 +1,275 @@
+#N canvas 933 200 432 493 10;
+#X msg 37 337 0;
+#X obj 319 300 loadbang;
+#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 315 406 0;
+#X obj 315 429 v \$0-STATE;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 906 89 533 644 world 0;
+#X floatatom 16 78 5 0 0 0 - - -;
+#X obj 16 293 t a b;
+#X obj 16 372 spigot;
+#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
+1 1;
+#X obj 67 334 == 0;
+#X obj 16 316 sel 1;
+#X text 41 402 think;
+#X obj 16 428 gauss 1 0;
+#X floatatom 16 474 5 0 0 0 - - -;
+#X obj 16 544 sel 1;
+#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X floatatom 110 504 5 0 0 0 stress - -;
+#X obj 238 555 +;
+#X obj 238 502 t a b;
+#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 238 480 8 0 0 0 - - -;
+#X obj 16 521 >;
+#X floatatom 16 137 5 0 0 0 - - -;
+#X obj 238 375 t b b;
+#X obj 285 416 sel 1 0;
+#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
+-257985 -1;
+#X obj 16 114 resample 1000;
+#X obj 238 578 max 0;
+#X text 109 114 listening speed;
+#X text 56 77 speed of happenings;
+#X text 69 210 world is quiet?;
+#X text 90 285 status of me;
+#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 16 451 abs;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array \$0-stress 100 float 2;
+#X coords 0 3 100 0 200 50 1 0 0;
+#X restore 295 45 graph;
+#X obj 238 303 loadbang;
+#X text 78 227 condition of state change;
+#X obj 238 346 metro 100;
+#N canvas 1 89 319 212 (subpatch) 0;
+#X obj 12 54 metro 100;
+#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 12 100 t a b;
+#X obj 117 77 f;
+#X obj 144 77 + 1;
+#X obj 117 100 mod 100;
+#X obj 12 11 loadbang;
+#X obj 12 77 v \$0-STRESS;
+#X obj 12 123 tabwrite \$0-stress;
+#X msg 78 11 0;
+#X connect 0 0 7 0;
+#X connect 1 0 0 0;
+#X connect 2 0 8 0;
+#X connect 2 1 3 0;
+#X connect 3 0 4 0;
+#X connect 3 0 5 0;
+#X connect 4 0 3 1;
+#X connect 5 0 8 1;
+#X connect 6 0 1 0;
+#X connect 7 0 2 0;
+#X connect 9 0 7 0;
+#X restore 473 100 pd;
+#X obj 285 393 v \$0-STATE;
+#X obj 265 525 v \$0-STRESS;
+#X obj 238 601 v \$0-STRESS;
+#X obj 67 311 v \$0-STATE;
+#X obj 16 597 outlet;
+#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 373 255 metro 50;
+#X obj 373 212 loadbang;
+#X obj 373 278 v \$0-STATE;
+#X obj 373 301 s \$0-status-now;
+#X text 378 440 working stress;
+#X text 378 460 resting relax;
+#X msg 304 462 -0.005;
+#X obj 16 39 r FRUIT_ENERGY;
+#X obj 16 210 < 0.2;
+#X msg 285 439 0.02;
+#X connect 0 0 21 0;
+#X connect 1 0 5 0;
+#X connect 1 1 37 0;
+#X connect 2 0 7 0;
+#X connect 3 0 2 1;
+#X connect 4 0 3 0;
+#X connect 5 0 2 0;
+#X connect 7 0 28 0;
+#X connect 8 0 16 0;
+#X connect 9 0 38 0;
+#X connect 11 0 16 1;
+#X connect 12 0 22 0;
+#X connect 13 0 12 0;
+#X connect 13 1 35 0;
+#X connect 14 0 32 0;
+#X connect 15 0 13 0;
+#X connect 16 0 9 0;
+#X connect 16 0 10 0;
+#X connect 17 0 20 0;
+#X connect 17 0 48 0;
+#X connect 18 0 15 0;
+#X connect 18 1 34 0;
+#X connect 19 0 49 0;
+#X connect 19 1 46 0;
+#X connect 21 0 17 0;
+#X connect 22 0 11 0;
+#X connect 22 0 36 0;
+#X connect 28 0 8 0;
+#X connect 30 0 14 0;
+#X connect 32 0 18 0;
+#X connect 34 0 19 0;
+#X connect 35 0 12 1;
+#X connect 37 0 4 0;
+#X connect 37 0 27 0;
+#X connect 39 0 40 0;
+#X connect 40 0 42 0;
+#X connect 41 0 39 0;
+#X connect 42 0 43 0;
+#X connect 46 0 15 0;
+#X connect 47 0 0 0;
+#X connect 48 0 1 0;
+#X connect 49 0 15 0;
+#X restore 167 226 pd world and me;
+#N canvas 440 146 715 368 expressions 0;
+#X obj 38 195 inlet;
+#X obj 38 276 outlet;
+#X obj 38 247 t b a;
+#X obj 240 242 s \$0-word;
+#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 148 265 + 1;
+#X floatatom 148 288 5 0 0 0 - - -;
+#X obj 148 310 array_copier fa;
+#N canvas 1 89 450 278 (subpatch) 0;
+#X array fa1 50 float 3;
+#A 0 0.0952383 0.114286 0.114286 0.114286 0.057143 -0.0476183 -0.133332
+-0.133332 -0.133332 -0.133332 -0.0761895 0.0285717 0.0857142 0.104762
+0.104762 0.104762 0.104762 0.104762 0.0476192 -0.133332 -0.142856 -0.142856
+-0.15238 -0.123808 -0.0666658 0.0476193 0.0666668 0.0666668 0.0666668
+0.0761905 0.0761905 0.0857143 -0.123808 -0.123808 -0.123808 -0.123808
+-0.123808 -0.123808 -0.123808 -0.123808 0.0476192 0.095238 0.095238
+0.104762 0.104762 -0.161903 -0.147618 -0.133332 -0.114285 0.0952383
+;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 40 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array fa2 50 float 3;
+#A 0 0.0380951 0.0666663 0.0952376 0.104761 0.123809 0.0761901 0.00952381
+-0.0476187 -0.0952374 -0.123809 -0.114285 -0.0952374 -0.0761899 -0.0476187
+-0.0285712 5.96046e-08 0.0285713 0.0476188 0.0571426 0.0476188 0.0190476
+-0.0380949 -0.104761 -0.123809 -0.104761 -0.0857137 -0.0571424 -0.0190474
+0.0190476 0.0571426 0.0857138 0.104761 0.0952376 0.0476188 -0.00952369
+-0.0571424 -0.104761 -0.142856 -0.142856 -0.133332 -0.114285 -0.0857137
+-0.0285712 0.00952381 0.0476188 0.0761901 0.0952376 0.114285 0.114285
+-0.0571424;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 200 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array fa3 50 float 3;
+#A 0 -0.0190473 -0.0190473 0.0761905 -0.0190473 -0.0190473 -0.0190473
+-0.0190473 -0.114285 -0.0190473 0.114286 -0.0952373 -0.114285 8.34465e-07
+-0.00952291 -0.00952291 -0.00952291 0.133333 0.133333 8.34465e-07 -0.0190473
+-0.0190473 -0.0952371 -0.123808 -0.142856 -0.0190473 -0.00952351 0.114286
+0.133333 0.161904 0.161904 -0.00952351 -0.00952351 -0.00952351 -0.00952351
+0.0666667 0.0285717 -0.00952333 -0.0476183 -0.104761 -0.114285 -0.0952371
+-0.0571421 0.0190479 0.0857142 0.0952379 -0.00952351 -0.00952351 -0.00952351
+-0.00952351 -0.00952351;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 360 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array fa4 50 float 3;
+#A 0 0.0571424 0.0857143 0.114286 0.104762 0.0857143 0.0761906 0.0380956
+-0.00952315 -0.142856 -0.0857131 -0.00952315 0.0380956 0.0761906 0.0761906
+-0.0285707 -0.0857131 -0.133332 -0.114284 -0.0952369 -0.0666656 -0.0476182
+-0.0285707 0.00952435 0.0571431 0.0571431 0.0285718 -0.00952315 -0.0761894
+-0.0476182 0.00952435 0.0476193 0.0857143 0.114286 0.0571431 5.96046e-07
+-0.0666656 -0.104761 -0.0857131 -0.0571419 -0.00952315 0.0190481 0.0571431
+0.0952381 0.0857143 5.96046e-07 -0.0476182 -0.0952369 -0.133332 -0.133332
+0.0857143;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 520 40 graph;
+#X obj 38 224 random 4;
+#X connect 0 0 12 0;
+#X connect 2 0 1 0;
+#X connect 2 1 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 4 0;
+#X connect 12 0 2 0;
+#X connect 12 0 3 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array fa 50 float 3;
+#A 0 0.0952383 0.114286 0.114286 0.114286 0.057143 -0.0476183 -0.133332
+-0.133332 -0.133332 -0.133332 -0.0761895 0.0285717 0.0857142 0.104762
+0.104762 0.104762 0.104762 0.104762 0.0476192 -0.133332 -0.142856 -0.142856
+-0.15238 -0.123808 -0.0666658 0.0476193 0.0666668 0.0666668 0.0666668
+0.0761905 0.0761905 0.0857143 -0.123808 -0.123808 -0.123808 -0.123808
+-0.123808 -0.123808 -0.123808 -0.123808 0.0476192 0.095238 0.095238
+0.104762 0.104762 -0.161903 -0.147618 -0.133332 -0.114285 0.0952383
+;
+#X coords 0 1 50 0 50 50 1 0 0;
+#X restore 29 26 graph;
+#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -261682
+-260097 -1 0;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -261682 -260097
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -261682
+-260097 -1 0 1;
+#X obj 88 429 s NOTE;
+#X obj 88 406 spigot;
+#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 7 397 loadbang;
+#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 280 55 loadbang;
+#X obj 280 98 metro 2000;
+#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 280 144 *;
+#X obj 355 126 r F_SEQ;
+#X obj 280 121 v \$0-STRESS;
+#X obj 280 167 v \$0-STRESS;
+#X obj 164 21 r FA;
+#X obj 48 188 r FA;
+#X obj 295 452 s FA_DONE;
+#X obj 167 279 s FA;
+#X msg 319 323 fa;
+#X obj 295 243 loadbang;
+#X msg 295 266 1;
+#X obj 88 306 riff1_random 200 4402 700 1000;
+#X connect 0 0 34 0;
+#X connect 1 0 31 0;
+#X connect 2 0 5 0;
+#X connect 2 0 29 0;
+#X connect 4 0 30 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 34 0;
+#X connect 16 0 15 0;
+#X connect 17 0 16 1;
+#X connect 18 0 17 0;
+#X connect 19 0 31 0;
+#X connect 20 0 22 0;
+#X connect 21 0 25 0;
+#X connect 22 0 21 0;
+#X connect 23 0 26 0;
+#X connect 24 0 23 1;
+#X connect 25 0 23 0;
+#X connect 27 0 7 0;
+#X connect 27 0 13 0;
+#X connect 28 0 10 0;
+#X connect 31 0 34 1;
+#X connect 32 0 33 0;
+#X connect 33 0 34 2;
+#X connect 34 0 16 0;
+#X connect 34 3 2 0;
+#X coords 0 -1 1 1 100 100 2 5 5;
diff --git a/puredata/radio_mi.pd b/puredata/radio_mi.pd
new file mode 100644
index 0000000..334fd85
--- /dev/null
+++ b/puredata/radio_mi.pd
@@ -0,0 +1,275 @@
+#N canvas 961 178 432 493 10;
+#X msg 37 337 0;
+#X obj 319 300 loadbang;
+#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 315 406 0;
+#X obj 315 429 v \$0-STATE;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 906 89 533 644 world 0;
+#X floatatom 16 78 5 0 0 0 - - -;
+#X obj 16 293 t a b;
+#X obj 16 372 spigot;
+#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
+0 1;
+#X obj 67 334 == 0;
+#X obj 16 316 sel 1;
+#X text 41 402 think;
+#X obj 16 428 gauss 1 0;
+#X floatatom 16 474 5 0 0 0 - - -;
+#X obj 16 544 sel 1;
+#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 110 504 5 0 0 0 stress - -;
+#X obj 238 555 +;
+#X obj 238 502 t a b;
+#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 238 480 8 0 0 0 - - -;
+#X obj 16 521 >;
+#X floatatom 16 137 5 0 0 0 - - -;
+#X obj 238 375 t b b;
+#X obj 285 416 sel 1 0;
+#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
+-257985 -1;
+#X obj 16 114 resample 1000;
+#X obj 238 578 max 0;
+#X text 109 114 listening speed;
+#X text 56 77 speed of happenings;
+#X text 69 210 world is quiet?;
+#X text 90 285 status of me;
+#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 16 451 abs;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array \$0-stress 100 float 2;
+#X coords 0 3 100 0 200 50 1 0 0;
+#X restore 295 45 graph;
+#X obj 238 303 loadbang;
+#X text 78 227 condition of state change;
+#X obj 238 346 metro 100;
+#N canvas 1 89 319 212 (subpatch) 0;
+#X obj 12 54 metro 100;
+#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 12 100 t a b;
+#X obj 117 77 f;
+#X obj 144 77 + 1;
+#X obj 117 100 mod 100;
+#X obj 12 11 loadbang;
+#X obj 12 77 v \$0-STRESS;
+#X obj 12 123 tabwrite \$0-stress;
+#X msg 78 11 0;
+#X connect 0 0 7 0;
+#X connect 1 0 0 0;
+#X connect 2 0 8 0;
+#X connect 2 1 3 0;
+#X connect 3 0 4 0;
+#X connect 3 0 5 0;
+#X connect 4 0 3 1;
+#X connect 5 0 8 1;
+#X connect 6 0 1 0;
+#X connect 7 0 2 0;
+#X connect 9 0 7 0;
+#X restore 473 100 pd;
+#X obj 285 393 v \$0-STATE;
+#X obj 265 525 v \$0-STRESS;
+#X obj 238 601 v \$0-STRESS;
+#X obj 67 311 v \$0-STATE;
+#X obj 16 597 outlet;
+#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 373 255 metro 50;
+#X obj 373 212 loadbang;
+#X obj 373 278 v \$0-STATE;
+#X obj 373 301 s \$0-status-now;
+#X text 378 440 working stress;
+#X text 378 460 resting relax;
+#X msg 304 462 -0.005;
+#X obj 16 39 r FRUIT_ENERGY;
+#X obj 16 210 < 0.2;
+#X msg 285 439 0.02;
+#X connect 0 0 21 0;
+#X connect 1 0 5 0;
+#X connect 1 1 37 0;
+#X connect 2 0 7 0;
+#X connect 3 0 2 1;
+#X connect 4 0 3 0;
+#X connect 5 0 2 0;
+#X connect 7 0 28 0;
+#X connect 8 0 16 0;
+#X connect 9 0 38 0;
+#X connect 11 0 16 1;
+#X connect 12 0 22 0;
+#X connect 13 0 12 0;
+#X connect 13 1 35 0;
+#X connect 14 0 32 0;
+#X connect 15 0 13 0;
+#X connect 16 0 9 0;
+#X connect 16 0 10 0;
+#X connect 17 0 20 0;
+#X connect 17 0 48 0;
+#X connect 18 0 15 0;
+#X connect 18 1 34 0;
+#X connect 19 0 49 0;
+#X connect 19 1 46 0;
+#X connect 21 0 17 0;
+#X connect 22 0 11 0;
+#X connect 22 0 36 0;
+#X connect 28 0 8 0;
+#X connect 30 0 14 0;
+#X connect 32 0 18 0;
+#X connect 34 0 19 0;
+#X connect 35 0 12 1;
+#X connect 37 0 4 0;
+#X connect 37 0 27 0;
+#X connect 39 0 40 0;
+#X connect 40 0 42 0;
+#X connect 41 0 39 0;
+#X connect 42 0 43 0;
+#X connect 46 0 15 0;
+#X connect 47 0 0 0;
+#X connect 48 0 1 0;
+#X connect 49 0 15 0;
+#X restore 167 226 pd world and me;
+#N canvas 440 146 715 368 expressions 0;
+#X obj 38 195 inlet;
+#X obj 38 276 outlet;
+#X obj 38 247 t b a;
+#X obj 240 242 s \$0-word;
+#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 148 265 + 1;
+#X floatatom 148 288 5 0 0 0 - - -;
+#X obj 148 310 array_copier mi;
+#N canvas 1 89 450 278 (subpatch) 0;
+#X array mi1 50 float 3;
+#A 0 0.0952383 0.114286 0.114286 0.114286 0.057143 -0.0476183 -0.133332
+-0.133332 -0.133332 -0.133332 -0.0761895 0.0285717 0.0857142 0.104762
+0.104762 0.104762 0.104762 0.104762 0.0476192 -0.133332 -0.142856 -0.142856
+-0.15238 -0.123808 -0.0666658 0.0476193 0.0666668 0.0666668 0.0666668
+0.0761905 0.0761905 0.0857143 -0.123808 -0.123808 -0.123808 -0.123808
+-0.123808 -0.123808 -0.123808 -0.123808 0.0476192 0.095238 0.095238
+0.104762 0.104762 -0.161903 -0.147618 -0.133332 -0.114285 0.0952383
+;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 40 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array mi2 50 float 3;
+#A 0 0.0380951 0.0666663 0.0952376 0.104761 0.123809 0.0761901 0.00952381
+-0.0476187 -0.0952374 -0.123809 -0.114285 -0.0952374 -0.0761899 -0.0476187
+-0.0285712 5.96046e-08 0.0285713 0.0476188 0.0571426 0.0476188 0.0190476
+-0.0380949 -0.104761 -0.123809 -0.104761 -0.0857137 -0.0571424 -0.0190474
+0.0190476 0.0571426 0.0857138 0.104761 0.0952376 0.0476188 -0.00952369
+-0.0571424 -0.104761 -0.142856 -0.142856 -0.133332 -0.114285 -0.0857137
+-0.0285712 0.00952381 0.0476188 0.0761901 0.0952376 0.114285 0.114285
+-0.0571424;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 200 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array mi3 50 float 3;
+#A 0 -0.0190473 -0.0190473 0.0761905 -0.0190473 -0.0190473 -0.0190473
+-0.0190473 -0.114285 -0.0190473 0.114286 -0.0952373 -0.114285 8.34465e-07
+-0.00952291 -0.00952291 -0.00952291 0.133333 0.133333 8.34465e-07 -0.0190473
+-0.0190473 -0.0952371 -0.123808 -0.142856 -0.0190473 -0.00952351 0.114286
+0.133333 0.161904 0.161904 -0.00952351 -0.00952351 -0.00952351 -0.00952351
+0.0666667 0.0285717 -0.00952333 -0.0476183 -0.104761 -0.114285 -0.0952371
+-0.0571421 0.0190479 0.0857142 0.0952379 -0.00952351 -0.00952351 -0.00952351
+-0.00952351 -0.00952351;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 360 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array mi4 50 float 3;
+#A 0 0.0571424 0.0857143 0.114286 0.104762 0.0857143 0.0761906 0.0380956
+-0.00952315 -0.142856 -0.0857131 -0.00952315 0.0380956 0.0761906 0.0761906
+-0.0285707 -0.0857131 -0.133332 -0.114284 -0.0952369 -0.0666656 -0.0476182
+-0.0285707 0.00952435 0.0571431 0.0571431 0.0285718 -0.00952315 -0.0761894
+-0.0476182 0.00952435 0.0476193 0.0857143 0.114286 0.0571431 5.96046e-07
+-0.0666656 -0.104761 -0.0857131 -0.0571419 -0.00952315 0.0190481 0.0571431
+0.0952381 0.0857143 5.96046e-07 -0.0476182 -0.0952369 -0.133332 -0.133332
+0.0857143;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 520 40 graph;
+#X obj 38 224 random 4;
+#X connect 0 0 12 0;
+#X connect 2 0 1 0;
+#X connect 2 1 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 4 0;
+#X connect 12 0 2 0;
+#X connect 12 0 3 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array mi 50 float 3;
+#A 0 0.0380951 0.0666663 0.0952376 0.104761 0.123809 0.0761901 0.00952381
+-0.0476187 -0.0952374 -0.123809 -0.114285 -0.0952374 -0.0761899 -0.0476187
+-0.0285712 5.96046e-08 0.0285713 0.0476188 0.0571426 0.0476188 0.0190476
+-0.0380949 -0.104761 -0.123809 -0.104761 -0.0857137 -0.0571424 -0.0190474
+0.0190476 0.0571426 0.0857138 0.104761 0.0952376 0.0476188 -0.00952369
+-0.0571424 -0.104761 -0.142856 -0.142856 -0.133332 -0.114285 -0.0857137
+-0.0285712 0.00952381 0.0476188 0.0761901 0.0952376 0.114285 0.114285
+-0.0571424;
+#X coords 0 1 50 0 50 50 1 0 0;
+#X restore 29 26 graph;
+#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -162280
+-4032 -1 1;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -162280 -4032
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -162280
+-4032 -1 1 1;
+#X obj 88 429 s NOTE;
+#X obj 88 406 spigot;
+#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 7 397 loadbang;
+#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 280 55 loadbang;
+#X obj 280 98 metro 2000;
+#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 280 144 *;
+#X obj 355 126 r F_SEQ;
+#X obj 280 121 v \$0-STRESS;
+#X obj 280 167 v \$0-STRESS;
+#X obj 164 21 r MI;
+#X obj 48 188 r MI;
+#X obj 295 452 s MI_DONE;
+#X obj 167 278 s MI;
+#X msg 319 323 mi;
+#X obj 295 243 loadbang;
+#X msg 295 266 0;
+#X obj 88 306 riff1_random 200 4402 700 1000;
+#X connect 0 0 34 0;
+#X connect 1 0 31 0;
+#X connect 2 0 5 0;
+#X connect 2 0 29 0;
+#X connect 4 0 30 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 34 0;
+#X connect 16 0 15 0;
+#X connect 17 0 16 1;
+#X connect 18 0 17 0;
+#X connect 19 0 31 0;
+#X connect 20 0 22 0;
+#X connect 21 0 25 0;
+#X connect 22 0 21 0;
+#X connect 23 0 26 0;
+#X connect 24 0 23 1;
+#X connect 25 0 23 0;
+#X connect 27 0 7 0;
+#X connect 27 0 13 0;
+#X connect 28 0 10 0;
+#X connect 31 0 34 1;
+#X connect 32 0 33 0;
+#X connect 33 0 34 2;
+#X connect 34 0 16 0;
+#X connect 34 3 2 0;
+#X coords 0 -1 1 1 100 100 2 5 5;
diff --git a/puredata/radio_re.pd b/puredata/radio_re.pd
new file mode 100644
index 0000000..119c07b
--- /dev/null
+++ b/puredata/radio_re.pd
@@ -0,0 +1,275 @@
+#N canvas 434 218 432 493 10;
+#X msg 37 337 0;
+#X obj 319 300 loadbang;
+#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 315 406 0;
+#X obj 315 429 v \$0-STATE;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 906 89 533 644 world 0;
+#X floatatom 16 78 5 0 0 0 - - -;
+#X obj 16 293 t a b;
+#X obj 16 372 spigot;
+#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
+1 1;
+#X obj 67 334 == 0;
+#X obj 16 316 sel 1;
+#X text 41 402 think;
+#X obj 16 428 gauss 1 0;
+#X floatatom 16 474 5 0 0 0 - - -;
+#X obj 16 544 sel 1;
+#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 0
+1;
+#X floatatom 110 504 5 0 0 0 stress - -;
+#X obj 238 555 +;
+#X obj 238 502 t a b;
+#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 238 480 8 0 0 0 - - -;
+#X obj 16 521 >;
+#X floatatom 16 137 5 0 0 0 - - -;
+#X obj 238 375 t b b;
+#X obj 285 416 sel 1 0;
+#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
+-257985 -1;
+#X obj 16 114 resample 1000;
+#X obj 238 578 max 0;
+#X text 109 114 listening speed;
+#X text 56 77 speed of happenings;
+#X text 69 210 world is quiet?;
+#X text 90 285 status of me;
+#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 0
+1;
+#X obj 16 451 abs;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array \$0-stress 100 float 2;
+#X coords 0 3 100 0 200 50 1 0 0;
+#X restore 295 45 graph;
+#X obj 238 303 loadbang;
+#X text 78 227 condition of state change;
+#X obj 238 346 metro 100;
+#N canvas 1 89 319 212 (subpatch) 0;
+#X obj 12 54 metro 100;
+#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 12 100 t a b;
+#X obj 117 77 f;
+#X obj 144 77 + 1;
+#X obj 117 100 mod 100;
+#X obj 12 11 loadbang;
+#X obj 12 77 v \$0-STRESS;
+#X obj 12 123 tabwrite \$0-stress;
+#X msg 78 11 0;
+#X connect 0 0 7 0;
+#X connect 1 0 0 0;
+#X connect 2 0 8 0;
+#X connect 2 1 3 0;
+#X connect 3 0 4 0;
+#X connect 3 0 5 0;
+#X connect 4 0 3 1;
+#X connect 5 0 8 1;
+#X connect 6 0 1 0;
+#X connect 7 0 2 0;
+#X connect 9 0 7 0;
+#X restore 473 100 pd;
+#X obj 285 393 v \$0-STATE;
+#X obj 265 525 v \$0-STRESS;
+#X obj 238 601 v \$0-STRESS;
+#X obj 67 311 v \$0-STATE;
+#X obj 16 597 outlet;
+#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 373 255 metro 50;
+#X obj 373 212 loadbang;
+#X obj 373 278 v \$0-STATE;
+#X obj 373 301 s \$0-status-now;
+#X text 378 440 working stress;
+#X text 378 460 resting relax;
+#X msg 304 462 -0.005;
+#X obj 17 39 r FRUIT_ENERGY;
+#X obj 16 210 < 0.2;
+#X msg 285 439 0.02;
+#X connect 0 0 21 0;
+#X connect 1 0 5 0;
+#X connect 1 1 37 0;
+#X connect 2 0 7 0;
+#X connect 3 0 2 1;
+#X connect 4 0 3 0;
+#X connect 5 0 2 0;
+#X connect 7 0 28 0;
+#X connect 8 0 16 0;
+#X connect 9 0 38 0;
+#X connect 11 0 16 1;
+#X connect 12 0 22 0;
+#X connect 13 0 12 0;
+#X connect 13 1 35 0;
+#X connect 14 0 32 0;
+#X connect 15 0 13 0;
+#X connect 16 0 9 0;
+#X connect 16 0 10 0;
+#X connect 17 0 20 0;
+#X connect 17 0 48 0;
+#X connect 18 0 15 0;
+#X connect 18 1 34 0;
+#X connect 19 0 49 0;
+#X connect 19 1 46 0;
+#X connect 21 0 17 0;
+#X connect 22 0 11 0;
+#X connect 22 0 36 0;
+#X connect 28 0 8 0;
+#X connect 30 0 14 0;
+#X connect 32 0 18 0;
+#X connect 34 0 19 0;
+#X connect 35 0 12 1;
+#X connect 37 0 4 0;
+#X connect 37 0 27 0;
+#X connect 39 0 40 0;
+#X connect 40 0 42 0;
+#X connect 41 0 39 0;
+#X connect 42 0 43 0;
+#X connect 46 0 15 0;
+#X connect 47 0 0 0;
+#X connect 48 0 1 0;
+#X connect 49 0 15 0;
+#X restore 167 226 pd world and me;
+#N canvas 440 146 715 368 expressions 0;
+#X obj 38 195 inlet;
+#X obj 38 276 outlet;
+#X obj 38 247 t b a;
+#X obj 240 242 s \$0-word;
+#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 148 265 + 1;
+#X floatatom 148 288 5 0 0 0 - - -;
+#X obj 148 310 array_copier re;
+#N canvas 1 89 450 278 (subpatch) 0;
+#X array re1 50 float 3;
+#A 0 0.0952383 0.114286 0.114286 0.114286 0.057143 -0.0476183 -0.133332
+-0.133332 -0.133332 -0.133332 -0.0761895 0.0285717 0.0857142 0.104762
+0.104762 0.104762 0.104762 0.104762 0.0476192 -0.133332 -0.142856 -0.142856
+-0.15238 -0.123808 -0.0666658 0.0476193 0.0666668 0.0666668 0.0666668
+0.0761905 0.0761905 0.0857143 -0.123808 -0.123808 -0.123808 -0.123808
+-0.123808 -0.123808 -0.123808 -0.123808 0.0476192 0.095238 0.095238
+0.104762 0.104762 -0.161903 -0.147618 -0.133332 -0.114285 0.0952383
+;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 40 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array re2 50 float 3;
+#A 0 0.0380951 0.0666663 0.0952376 0.104761 0.123809 0.0761901 0.00952381
+-0.0476187 -0.0952374 -0.123809 -0.114285 -0.0952374 -0.0761899 -0.0476187
+-0.0285712 5.96046e-08 0.0285713 0.0476188 0.0571426 0.0476188 0.0190476
+-0.0380949 -0.104761 -0.123809 -0.104761 -0.0857137 -0.0571424 -0.0190474
+0.0190476 0.0571426 0.0857138 0.104761 0.0952376 0.0476188 -0.00952369
+-0.0571424 -0.104761 -0.142856 -0.142856 -0.133332 -0.114285 -0.0857137
+-0.0285712 0.00952381 0.0476188 0.0761901 0.0952376 0.114285 0.114285
+-0.0571424;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 200 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array re3 50 float 3;
+#A 0 -0.0190473 -0.0190473 0.0761905 -0.0190473 -0.0190473 -0.0190473
+-0.0190473 -0.114285 -0.0190473 0.114286 -0.0952373 -0.114285 8.34465e-07
+-0.00952291 -0.00952291 -0.00952291 0.133333 0.133333 8.34465e-07 -0.0190473
+-0.0190473 -0.0952371 -0.123808 -0.142856 -0.0190473 -0.00952351 0.114286
+0.133333 0.161904 0.161904 -0.00952351 -0.00952351 -0.00952351 -0.00952351
+0.0666667 0.0285717 -0.00952333 -0.0476183 -0.104761 -0.114285 -0.0952371
+-0.0571421 0.0190479 0.0857142 0.0952379 -0.00952351 -0.00952351 -0.00952351
+-0.00952351 -0.00952351;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 360 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array re4 50 float 3;
+#A 0 0.0571424 0.0857143 0.114286 0.104762 0.0857143 0.0761906 0.0380956
+-0.00952315 -0.142856 -0.0857131 -0.00952315 0.0380956 0.0761906 0.0761906
+-0.0285707 -0.0857131 -0.133332 -0.114284 -0.0952369 -0.0666656 -0.0476182
+-0.0285707 0.00952435 0.0571431 0.0571431 0.0285718 -0.00952315 -0.0761894
+-0.0476182 0.00952435 0.0476193 0.0857143 0.114286 0.0571431 5.96046e-07
+-0.0666656 -0.104761 -0.0857131 -0.0571419 -0.00952315 0.0190481 0.0571431
+0.0952381 0.0857143 5.96046e-07 -0.0476182 -0.0952369 -0.133332 -0.133332
+0.0857143;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 520 40 graph;
+#X obj 38 224 random 4;
+#X connect 0 0 12 0;
+#X connect 2 0 1 0;
+#X connect 2 1 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 4 0;
+#X connect 12 0 2 0;
+#X connect 12 0 3 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array re 50 float 3;
+#A 0 0.0952383 0.114286 0.114286 0.114286 0.057143 -0.0476183 -0.133332
+-0.133332 -0.133332 -0.133332 -0.0761895 0.0285717 0.0857142 0.104762
+0.104762 0.104762 0.104762 0.104762 0.0476192 -0.133332 -0.142856 -0.142856
+-0.15238 -0.123808 -0.0666658 0.0476193 0.0666668 0.0666668 0.0666668
+0.0761905 0.0761905 0.0857143 -0.123808 -0.123808 -0.123808 -0.123808
+-0.123808 -0.123808 -0.123808 -0.123808 0.0476192 0.095238 0.095238
+0.104762 0.104762 -0.161903 -0.147618 -0.133332 -0.114285 0.0952383
+;
+#X coords 0 1 50 0 50 50 1 0 0;
+#X restore 29 26 graph;
+#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -261682
+-4034 -1 0;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -261682 -4034
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -261682
+-4034 -1 0 1;
+#X obj 88 429 s NOTE;
+#X obj 88 406 spigot;
+#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 7 397 loadbang;
+#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 280 55 loadbang;
+#X obj 280 98 metro 2000;
+#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 280 144 *;
+#X obj 355 126 r F_SEQ;
+#X obj 280 121 v \$0-STRESS;
+#X obj 280 167 v \$0-STRESS;
+#X obj 164 21 r RE;
+#X obj 48 188 r RE;
+#X msg 319 323 re;
+#X obj 295 452 s RE_DONE;
+#X obj 167 279 s RE;
+#X obj 295 243 loadbang;
+#X msg 295 266 1;
+#X obj 88 306 riff1_random 200 4401 700 1000;
+#X connect 0 0 34 0;
+#X connect 1 0 29 0;
+#X connect 2 0 5 0;
+#X connect 2 0 30 0;
+#X connect 4 0 31 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 34 0;
+#X connect 16 0 15 0;
+#X connect 17 0 16 1;
+#X connect 18 0 17 0;
+#X connect 19 0 29 0;
+#X connect 20 0 22 0;
+#X connect 21 0 25 0;
+#X connect 22 0 21 0;
+#X connect 23 0 26 0;
+#X connect 24 0 23 1;
+#X connect 25 0 23 0;
+#X connect 27 0 7 0;
+#X connect 27 0 13 0;
+#X connect 28 0 10 0;
+#X connect 29 0 34 1;
+#X connect 32 0 33 0;
+#X connect 33 0 34 2;
+#X connect 34 0 16 0;
+#X connect 34 3 2 0;
+#X coords 0 -1 1 1 100 100 2 5 5;
diff --git a/puredata/radio_sol.pd b/puredata/radio_sol.pd
new file mode 100644
index 0000000..e4e2afe
--- /dev/null
+++ b/puredata/radio_sol.pd
@@ -0,0 +1,275 @@
+#N canvas 318 89 432 493 10;
+#X msg 37 337 0;
+#X obj 319 300 loadbang;
+#X obj 295 406 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144
+-1 -1;
+#X text 35 318 stop!;
+#X obj 167 249 bng 15 250 50 0 empty empty motivated! 17 7 0 10 -262144
+-1 -1;
+#X msg 315 406 0;
+#X obj 315 429 v \$0-STATE;
+#X msg 164 44 1;
+#X obj 164 67 v \$0-STATE;
+#N canvas 906 89 533 644 world 0;
+#X floatatom 16 78 5 0 0 0 - - -;
+#X obj 16 293 t a b;
+#X obj 16 372 spigot;
+#X obj 67 357 tgl 15 0 empty empty free_:) 17 7 0 10 -262144 -1 -1
+0 1;
+#X obj 67 334 == 0;
+#X obj 16 316 sel 1;
+#X text 41 402 think;
+#X obj 16 428 gauss 1 0;
+#X floatatom 16 474 5 0 0 0 - - -;
+#X obj 16 544 sel 1;
+#X obj 65 562 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 110 504 5 0 0 0 stress - -;
+#X obj 238 555 +;
+#X obj 238 502 t a b;
+#X obj 238 326 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X floatatom 238 480 8 0 0 0 - - -;
+#X obj 16 521 >;
+#X floatatom 16 137 5 0 0 0 - - -;
+#X obj 238 375 t b b;
+#X obj 285 416 sel 1 0;
+#X obj 64 164 bng 15 250 50 0 empty empty listen 17 7 0 10 -191407
+-257985 -1;
+#X obj 16 114 resample 1000;
+#X obj 238 578 max 0;
+#X text 109 114 listening speed;
+#X text 56 77 speed of happenings;
+#X text 69 210 world is quiet?;
+#X text 90 285 status of me;
+#X obj 147 329 tgl 15 0 empty empty busy. 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 16 451 abs;
+#N canvas 0 50 450 250 (subpatch) 0;
+#X array \$0-stress 100 float 2;
+#X coords 0 3 100 0 200 50 1 0 0;
+#X restore 295 45 graph;
+#X obj 238 303 loadbang;
+#X text 78 227 condition of state change;
+#X obj 238 346 metro 100;
+#N canvas 1 89 319 212 (subpatch) 0;
+#X obj 12 54 metro 100;
+#X obj 12 34 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 12 100 t a b;
+#X obj 117 77 f;
+#X obj 144 77 + 1;
+#X obj 117 100 mod 100;
+#X obj 12 11 loadbang;
+#X obj 12 77 v \$0-STRESS;
+#X obj 12 123 tabwrite \$0-stress;
+#X msg 78 11 0;
+#X connect 0 0 7 0;
+#X connect 1 0 0 0;
+#X connect 2 0 8 0;
+#X connect 2 1 3 0;
+#X connect 3 0 4 0;
+#X connect 3 0 5 0;
+#X connect 4 0 3 1;
+#X connect 5 0 8 1;
+#X connect 6 0 1 0;
+#X connect 7 0 2 0;
+#X connect 9 0 7 0;
+#X restore 473 100 pd;
+#X obj 285 393 v \$0-STATE;
+#X obj 265 525 v \$0-STRESS;
+#X obj 238 601 v \$0-STRESS;
+#X obj 67 311 v \$0-STATE;
+#X obj 16 597 outlet;
+#X obj 373 235 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1
+1;
+#X obj 373 255 metro 50;
+#X obj 373 212 loadbang;
+#X obj 373 278 v \$0-STATE;
+#X obj 373 301 s \$0-status-now;
+#X text 378 440 working stress;
+#X text 378 460 resting relax;
+#X msg 304 462 -0.005;
+#X obj 16 39 r FRUIT_ENERGY;
+#X obj 16 210 < 0.2;
+#X msg 285 439 0.02;
+#X connect 0 0 21 0;
+#X connect 1 0 5 0;
+#X connect 1 1 37 0;
+#X connect 2 0 7 0;
+#X connect 3 0 2 1;
+#X connect 4 0 3 0;
+#X connect 5 0 2 0;
+#X connect 7 0 28 0;
+#X connect 8 0 16 0;
+#X connect 9 0 38 0;
+#X connect 11 0 16 1;
+#X connect 12 0 22 0;
+#X connect 13 0 12 0;
+#X connect 13 1 35 0;
+#X connect 14 0 32 0;
+#X connect 15 0 13 0;
+#X connect 16 0 9 0;
+#X connect 16 0 10 0;
+#X connect 17 0 20 0;
+#X connect 17 0 48 0;
+#X connect 18 0 15 0;
+#X connect 18 1 34 0;
+#X connect 19 0 49 0;
+#X connect 19 1 46 0;
+#X connect 21 0 17 0;
+#X connect 22 0 11 0;
+#X connect 22 0 36 0;
+#X connect 28 0 8 0;
+#X connect 30 0 14 0;
+#X connect 32 0 18 0;
+#X connect 34 0 19 0;
+#X connect 35 0 12 1;
+#X connect 37 0 4 0;
+#X connect 37 0 27 0;
+#X connect 39 0 40 0;
+#X connect 40 0 42 0;
+#X connect 41 0 39 0;
+#X connect 42 0 43 0;
+#X connect 46 0 15 0;
+#X connect 47 0 0 0;
+#X connect 48 0 1 0;
+#X connect 49 0 15 0;
+#X restore 167 226 pd world and me;
+#N canvas 440 146 715 368 expressions 0;
+#X obj 38 195 inlet;
+#X obj 38 276 outlet;
+#X obj 38 247 t b a;
+#X obj 240 242 s \$0-word;
+#X obj 148 333 bng 15 250 50 0 \$0-reload empty s:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 148 265 + 1;
+#X floatatom 148 288 5 0 0 0 - - -;
+#X obj 148 310 array_copier sol;
+#N canvas 1 89 450 278 (subpatch) 0;
+#X array sol1 50 float 3;
+#A 0 0.0952383 0.114286 0.114286 0.114286 0.057143 -0.0476183 -0.133332
+-0.133332 -0.133332 -0.133332 -0.0761895 0.0285717 0.0857142 0.104762
+0.104762 0.104762 0.104762 0.104762 0.0476192 -0.133332 -0.142856 -0.142856
+-0.15238 -0.123808 -0.0666658 0.0476193 0.0666668 0.0666668 0.0666668
+0.0761905 0.0761905 0.0857143 -0.123808 -0.123808 -0.123808 -0.123808
+-0.123808 -0.123808 -0.123808 -0.123808 0.0476192 0.095238 0.095238
+0.104762 0.104762 -0.161903 -0.147618 -0.133332 -0.114285 0.0952383
+;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 40 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array sol2 50 float 3;
+#A 0 0.0380951 0.0666663 0.0952376 0.104761 0.123809 0.0761901 0.00952381
+-0.0476187 -0.0952374 -0.123809 -0.114285 -0.0952374 -0.0761899 -0.0476187
+-0.0285712 5.96046e-08 0.0285713 0.0476188 0.0571426 0.0476188 0.0190476
+-0.0380949 -0.104761 -0.123809 -0.104761 -0.0857137 -0.0571424 -0.0190474
+0.0190476 0.0571426 0.0857138 0.104761 0.0952376 0.0476188 -0.00952369
+-0.0571424 -0.104761 -0.142856 -0.142856 -0.133332 -0.114285 -0.0857137
+-0.0285712 0.00952381 0.0476188 0.0761901 0.0952376 0.114285 0.114285
+-0.0571424;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 200 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array sol3 50 float 3;
+#A 0 -0.0190473 -0.0190473 0.0761905 -0.0190473 -0.0190473 -0.0190473
+-0.0190473 -0.114285 -0.0190473 0.114286 -0.0952373 -0.114285 8.34465e-07
+-0.00952291 -0.00952291 -0.00952291 0.133333 0.133333 8.34465e-07 -0.0190473
+-0.0190473 -0.0952371 -0.123808 -0.142856 -0.0190473 -0.00952351 0.114286
+0.133333 0.161904 0.161904 -0.00952351 -0.00952351 -0.00952351 -0.00952351
+0.0666667 0.0285717 -0.00952333 -0.0476183 -0.104761 -0.114285 -0.0952371
+-0.0571421 0.0190479 0.0857142 0.0952379 -0.00952351 -0.00952351 -0.00952351
+-0.00952351 -0.00952351;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 360 40 graph;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array sol4 50 float 3;
+#A 0 0.0571424 0.0857143 0.114286 0.104762 0.0857143 0.0761906 0.0380956
+-0.00952315 -0.142856 -0.0857131 -0.00952315 0.0380956 0.0761906 0.0761906
+-0.0285707 -0.0857131 -0.133332 -0.114284 -0.0952369 -0.0666656 -0.0476182
+-0.0285707 0.00952435 0.0571431 0.0571431 0.0285718 -0.00952315 -0.0761894
+-0.0476182 0.00952435 0.0476193 0.0857143 0.114286 0.0571431 5.96046e-07
+-0.0666656 -0.104761 -0.0857131 -0.0571419 -0.00952315 0.0190481 0.0571431
+0.0952381 0.0857143 5.96046e-07 -0.0476182 -0.0952369 -0.133332 -0.133332
+0.0857143;
+#X coords 0 1 50 0 150 105 1 0 0;
+#X restore 520 40 graph;
+#X obj 38 224 random 4;
+#X connect 0 0 12 0;
+#X connect 2 0 1 0;
+#X connect 2 1 5 0;
+#X connect 5 0 6 0;
+#X connect 6 0 7 0;
+#X connect 7 0 4 0;
+#X connect 12 0 2 0;
+#X connect 12 0 3 0;
+#X restore 48 226 pd expressions;
+#N canvas 0 23 450 278 (subpatch) 0;
+#X array sol 50 float 3;
+#A 0 0.0380951 0.0666663 0.0952376 0.104761 0.123809 0.0761901 0.00952381
+-0.0476187 -0.0952374 -0.123809 -0.114285 -0.0952374 -0.0761899 -0.0476187
+-0.0285712 5.96046e-08 0.0285713 0.0476188 0.0571426 0.0476188 0.0190476
+-0.0380949 -0.104761 -0.123809 -0.104761 -0.0857137 -0.0571424 -0.0190474
+0.0190476 0.0571426 0.0857138 0.104761 0.0952376 0.0476188 -0.00952369
+-0.0571424 -0.104761 -0.142856 -0.142856 -0.133332 -0.114285 -0.0857137
+-0.0285712 0.00952381 0.0476188 0.0761901 0.0952376 0.114285 0.114285
+-0.0571424;
+#X coords 0 1 50 0 50 50 1 0 0;
+#X restore 29 26 graph;
+#X obj 31 88 hradio 15 1 0 3 empty \$0-word empty 0 -8 0 10 -262144
+-128992 -1 1;
+#X obj 88 7 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -128992
+-1;
+#X obj 88 24 tgl 15 0 empty \$0-status-now empty 17 7 0 10 -262144
+-128992 -1 1 1;
+#X obj 88 429 s NOTE;
+#X obj 88 406 spigot;
+#X obj 7 420 tgl 15 0 empty empty empty 17 7 0 10 -262144 -1 -1 1 1
+;
+#X obj 7 397 loadbang;
+#X obj 339 346 bng 15 250 50 0 empty \$0-reload r:reload 17 7 0 10
+-262144 -1 -1;
+#X obj 280 55 loadbang;
+#X obj 280 98 metro 2000;
+#X obj 280 78 bng 15 250 50 0 empty empty empty 17 7 0 10 -262144 -1
+-1;
+#X obj 280 144 *;
+#X obj 355 126 r F_SEQ;
+#X obj 280 121 v \$0-STRESS;
+#X obj 280 167 v \$0-STRESS;
+#X obj 295 243 loadbang;
+#X msg 295 266 0;
+#X obj 164 21 r SOL;
+#X obj 48 188 r SOL;
+#X msg 319 323 sol;
+#X obj 295 452 s SOL_DONE;
+#X obj 167 279 s SOL;
+#X obj 88 306 riff1_random 200 4403 700 1000;
+#X connect 0 0 34 0;
+#X connect 1 0 31 0;
+#X connect 2 0 5 0;
+#X connect 2 0 32 0;
+#X connect 4 0 33 0;
+#X connect 5 0 6 0;
+#X connect 7 0 8 0;
+#X connect 9 0 4 0;
+#X connect 10 0 34 0;
+#X connect 16 0 15 0;
+#X connect 17 0 16 1;
+#X connect 18 0 17 0;
+#X connect 19 0 31 0;
+#X connect 20 0 22 0;
+#X connect 21 0 25 0;
+#X connect 22 0 21 0;
+#X connect 23 0 26 0;
+#X connect 24 0 23 1;
+#X connect 25 0 23 0;
+#X connect 27 0 28 0;
+#X connect 28 0 34 2;
+#X connect 29 0 7 0;
+#X connect 29 0 13 0;
+#X connect 30 0 10 0;
+#X connect 31 0 34 1;
+#X connect 34 0 16 0;
+#X connect 34 3 2 0;
+#X coords 0 -1 1 1 100 100 2 5 5;