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