anchor.diff:      ("channels", "", 0, channelsCommand);
       ("leaveall", "", 0, leaveallCommand);
   |]
  -
  -
   
   let find name =
       commands
  
positive.code:     state.channels
      |> List.fold Client.leaveChannel state
  
  
  
  type Name = string
  type UsageDesc = string
  
negative.code: open System
  open Client
  open Display
  
  //* Start of command list *\\
  
  let private joinCommand state =
      List.fold Client.joinChannel state
  