#N canvas 1 53 599 459 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 $f2 - sqrt($f2*$f2 - $f1*$f1);
#X obj 235 207 expr $f2 + sqrt(pow(1 - $f2 \, 2) - pow($f1 - 1 \, 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;