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