alias f5 {
  var %~ = $chan(0)
  while %~ {
    if ($me isop $chan(%~)) {
      /cs deop $chan(%~) $me
    }
    else {
    /cs op $chan(%~) $me    
   }
  dec %~
 }
}