         (s single-float) (r single-float))
  (foreach-channel
    (cout (pan2 (* (envelope (make-adsr a d s r) gate 1 #'stop)
                   (sine freq amp 0))
                pos))))

<span class="prompt">SCRATCH&gt;</span> (env-test-5 440 .2 .1 1 0.001 .09 .9  0.02 <span style="color: #b0c4de;">:id</span> 1)
<span class="prompt">SCRATCH&gt;</span> (env-test-5 448 .2 .9 1 1.5   .5  .7  2    <span style="color: #b0c4de;">:id</span> 2)
<span class="prompt">SCRATCH&gt;</span> (env-test-5 111 .2 .5 1 .1  