#N canvas 307 126 535 576 10;
#X obj 29 93 list fromsymbol;
#X obj 29 231 moses 48;
#X obj 124 248 moses 58;
#X obj 29 71 inlet;
#X obj 124 463 outlet;
#N canvas 0 22 287 214 drip-list 0;
#X obj 69 60 until;
#X obj 69 82 list;
#X obj 69 104 list split 1;
#X obj 69 14 inlet;
#X obj 69 126 outlet;
#X obj 69 36 t b l;
#X obj 138 125 t b b;
#X obj 138 147 outlet done;
#X connect 0 0 1 0;
#X connect 1 0 2 0;
#X connect 2 0 4 0;
#X connect 2 1 1 1;
#X connect 2 2 6 0;
#X connect 3 0 5 0;
#X connect 5 0 0 0;
#X connect 5 1 1 1;
#X connect 6 0 7 0;
#X connect 6 1 0 1;
#X restore 29 174 pd drip-list;
#X obj 128 191 spigot;
#X obj 29 115 t l b b;
#X msg 161 132 0;
#X msg 191 174 1;
#X obj 29 253 sel 45 46;
#X msg 29 319 -1;
#X obj 169 271 sel 101;
#X obj 124 318 t f f;
#X obj 48 140 s \$0-init;
#X obj 191 152 r \$0-let_bang;
#X obj 54 275 s \$0-dec;
#X obj 29 341 s \$0-negative;
#N canvas 637 329 467 382 \$0-scientific_val 0;
#X obj 88 308 pow;
#X obj 160 47 spigot;
#X obj 160 69 - 48;
#X obj 160 91 t f b;
#X obj 187 113 f;
#X obj 187 135 * 10;
#X obj 160 152 +;
#X obj 160 174 t f f;
#X msg 236 74 0;
#X obj 160 23 inlet;
#X obj 236 52 r \$0-init;
#X msg 216 30 1;
#X obj 216 8 r \$0-scientific;
#X obj 170 222 r \$0-negative;
#X obj 170 244 spigot;
#X obj 254 205 r \$0-init;
#X obj 283 227 r \$0-scientific;
#X msg 254 227 0;
#X msg 283 249 1;
#X obj 88 191 f;
#X obj 88 283 swap 10;
#X obj 88 261 *;
#X obj 103 216 r \$0-init;
#X msg 103 238 1;
#X obj 88 330 outlet;
#X obj 17 106 r \$0-bang;
#X obj 17 128 t b b;
#X obj 88 145 spigot;
#X obj 236 96 t f f f;
#X obj 17 150 s \$0-next;
#X obj 283 271 t f f;
#X connect 0 0 24 0;
#X connect 1 0 2 0;
#X connect 2 0 3 0;
#X connect 3 0 6 0;
#X connect 3 1 4 0;
#X connect 4 0 5 0;
#X connect 5 0 6 1;
#X connect 6 0 7 0;
#X connect 7 0 19 1;
#X connect 7 1 4 1;
#X connect 8 0 28 0;
#X connect 9 0 1 0;
#X connect 10 0 8 0;
#X connect 11 0 1 1;
#X connect 12 0 11 0;
#X connect 13 0 14 0;
#X connect 14 0 21 1;
#X connect 15 0 17 0;
#X connect 16 0 18 0;
#X connect 17 0 14 1;
#X connect 18 0 30 0;
#X connect 19 0 21 0;
#X connect 20 0 0 0;
#X connect 20 1 0 1;
#X connect 21 0 20 0;
#X connect 22 0 23 0;
#X connect 23 0 21 1;
#X connect 25 0 26 0;
#X connect 26 0 29 0;
#X connect 26 1 27 0;
#X connect 27 0 19 0;
#X connect 28 0 4 1;
#X connect 28 1 1 1;
#X connect 28 2 27 1;
#X connect 30 0 14 1;
#X connect 30 1 27 1;
#X restore 151 346 pd \$0-scientific_val;
#N canvas 526 231 447 504 \$0-non_scientific_val 0;
#X obj 96 187 - 48;
#X obj 96 209 t f b;
#X obj 123 231 f;
#X obj 123 253 * 10;
#X obj 96 270 +;
#X obj 96 292 t f f;
#X msg 138 209 0;
#X obj 29 309 f;
#X obj 276 199 f;
#X obj 306 199 + 1;
#X obj 276 221 swap 10;
#X obj 276 243 pow;
#X obj 29 336 /;
#X msg 291 176 1;
#X msg 168 297 1;
#X obj 96 114 t f b b;
#X obj 276 131 spigot;
#X msg 347 114 1;
#X msg 309 88 0;
#X obj 29 404 *;
#X obj 168 319 t f f;
#X obj 96 90 spigot;
#X obj 309 65 r \$0-init;
#X obj 138 186 r \$0-init;
#X obj 168 274 r \$0-init;
#X obj 291 155 r \$0-init;
#X obj 115 138 s \$0-let_bang;
#X obj 347 92 r \$0-dec;
#X obj 96 17 inlet;
#X obj 77 365 r \$0-negative;
#X obj 29 426 outlet;
#X obj 129 37 r \$0-init;
#X msg 129 59 1;
#X obj 196 51 r \$0-scientific;
#X msg 196 73 0;
#X obj 77 387 spigot;
#X obj 161 348 r \$0-init;
#X msg 161 370 1;
#X obj 190 370 r \$0-scientific;
#X msg 190 392 0;
#X obj 29 281 r \$0-next;
#X connect 0 0 1 0;
#X connect 1 0 4 0;
#X connect 1 1 2 0;
#X connect 2 0 3 0;
#X connect 3 0 4 1;
#X connect 4 0 5 0;
#X connect 5 0 7 1;
#X connect 5 1 2 1;
#X connect 6 0 2 1;
#X connect 7 0 12 0;
#X connect 8 0 9 0;
#X connect 8 0 10 0;
#X connect 9 0 8 1;
#X connect 10 0 11 0;
#X connect 10 1 11 1;
#X connect 11 0 12 1;
#X connect 12 0 19 0;
#X connect 13 0 8 1;
#X connect 14 0 20 0;
#X connect 15 0 0 0;
#X connect 15 1 26 0;
#X connect 15 2 16 0;
#X connect 16 0 8 0;
#X connect 17 0 16 1;
#X connect 18 0 16 1;
#X connect 19 0 30 0;
#X connect 20 0 12 1;
#X connect 20 1 19 1;
#X connect 21 0 15 0;
#X connect 22 0 18 0;
#X connect 23 0 6 0;
#X connect 24 0 14 0;
#X connect 25 0 13 0;
#X connect 27 0 17 0;
#X connect 28 0 21 0;
#X connect 29 0 35 0;
#X connect 31 0 32 0;
#X connect 32 0 21 1;
#X connect 33 0 34 0;
#X connect 34 0 21 1;
#X connect 35 0 19 1;
#X connect 36 0 37 0;
#X connect 37 0 35 1;
#X connect 38 0 39 0;
#X connect 39 0 35 1;
#X connect 40 0 7 0;
#X restore 124 371 pd \$0-non_scientific_val;
#X obj 124 440 *;
#X obj 183 401 r \$0-init;
#X msg 183 423 1;
#X obj 128 213 s \$0-bang;
#X text 26 15 ASCII 45 is hyphen \, used to make a number negative
\, ASCII 46 is dot \, making a number decimal \, ASCII 101 is e denoting
scientific notation;
#X text 36 513 Written by Alexandros Drymonitis \, after a discussion
on the Pd list with Chris McCormick;
#X obj 323 288 sel 105 110 102;
#X msg 323 310 1;
#X msg 352 310 1;
#X msg 381 310 1;
#X obj 352 338 &&;
#X obj 323 355 &&;
#X msg 323 377 inf;
#X text 320 267 this is "inf";
#N canvas 0 22 304 241 \$0-set_scientific 0;
#X obj 78 165 s \$0-scientific;
#X obj 78 141 spigot;
#X obj 78 48 inlet;
#X obj 111 71 r \$0-init;
#X msg 111 93 0;
#X obj 152 102 r \$0-let_bang;
#X msg 152 124 1;
#X connect 1 0 0 0;
#X connect 2 0 1 0;
#X connect 3 0 4 0;
#X connect 4 0 1 1;
#X connect 5 0 6 0;
#X connect 6 0 1 1;
#X restore 169 295 pd \$0-set_scientific;
#X connect 0 0 7 0;
#X connect 1 0 10 0;
#X connect 1 1 2 0;
#X connect 2 0 13 0;
#X connect 2 1 12 0;
#X connect 3 0 0 0;
#X connect 5 0 1 0;
#X connect 5 1 6 0;
#X connect 6 0 23 0;
#X connect 7 0 5 0;
#X connect 7 1 14 0;
#X connect 7 2 8 0;
#X connect 8 0 6 1;
#X connect 9 0 6 1;
#X connect 10 0 11 0;
#X connect 10 1 16 0;
#X connect 11 0 17 0;
#X connect 12 0 34 0;
#X connect 12 1 26 0;
#X connect 13 0 19 0;
#X connect 13 1 18 0;
#X connect 15 0 9 0;
#X connect 18 0 20 1;
#X connect 19 0 20 0;
#X connect 20 0 4 0;
#X connect 21 0 22 0;
#X connect 22 0 20 1;
#X connect 26 0 27 0;
#X connect 26 1 28 0;
#X connect 26 2 29 0;
#X connect 27 0 31 0;
#X connect 28 0 30 0;
#X connect 29 0 30 1;
#X connect 30 0 31 1;
#X connect 31 0 32 0;
#X connect 32 0 4 0;