{
  var %< = 1, %> = $($comchan($1,%<),0)
  while $(%>,2) {
    if $($+(%>,.op),2) {
      if $snicks {
        var %~ = 1
        while $gettok($snicks,%~,44) {
          mode $(%>,2) +v $v1
          inc %~
        }
        inc %<
      }
    }
  }
} 

{ var %1 = 1, %2 = $comchan($$1,0) | while (%1 <= %2) { cs voice $comchan($$1,%1) $$1 | inc %1 } }