127: /EVAL ASSIGN foo $numsort($uniq($replacex(\$numonchannel(,) , $mychannels())))
128: /FE ($revw($foo)) local2 {FE ($revw($mychannels())) local1 {if (local2 == numonchannel($local1)){qcmd 9 cycle $local1}}}
/alias channumsort (max, args) FE ($revw($numsort($uniq($replacex(\$numonchannel(,) , $mychannels()))))) local2 {IF (!max || local2 <= max) {FE ($revw($mychannels())) local1 {if (local2 == numonchannel($local1)){qcmd z cycle $local1}}}}