/mctl/mctl-ctlin.pd

 1#N canvas 557 528 450 300 10;
 2#X obj 118 93 outlet;
 3#X obj 118 40 unpack f f f;
 4#X obj 153 120 outlet;
 5#X obj 182 83 outlet;
 6#X obj 118 19 r \$1-CTLIN;
 7#X connect 1 0 0 0;
 8#X connect 1 1 2 0;
 9#X connect 1 2 3 0;
10#X connect 4 0 1 0;