#N canvas 1 53 595 448 10;
#X obj 62 10 inlet;
#X obj 195 405 outlet;
#X obj 240 10 loadbang;
#X obj 167 9 inlet;
#X obj 167 50 purepd/float_argument \$1;
#X obj 131 114 moses;
#X obj 14 208 expr sqrt(pow($f2 \, 2) - pow($f1 - $f2 \, 2));
#X obj 273 208 expr 1 - sqrt(pow(1 - $f2 \, 2) - pow($f1 - $f2 \, 2))
;
#X connect 0 0 5 0;
#X connect 2 0 4 0;
#X connect 3 0 4 0;
#X connect 4 0 5 1;
#X connect 4 0 6 1;
#X connect 4 0 7 1;
#X connect 5 0 6 0;
#X connect 5 1 7 0;
#X connect 6 0 1 0;
#X connect 7 0 1 0;