(COTERM-ALG
  (NAME "stoponzero")
  (ARGUMENTS ("sound_type" "s1"))
  (SAMPLE-RATE (MAX s1))
  (START (MAX s1))
  (INNER-LOOP "{ output = s1;}")
  (LINEAR s1)
  (TERMINATE (MIN s1))
  (LOGICAL-STOP (MIN s1))
)