anchor.diff:      state.channels
       |> List.fold Client.leaveChannel state
   
  -
  +//* End of command list *\\
   
   type Name = string
   type UsageDesc = string
  
positive.code:     ("channels", "", 0, channelsCommand);
      ("leaveall", "", 0, leaveallCommand);
  |]
  
  
  
  let find name =
      commands
  
negative.code: 
              state
          | _ -> func state args
      | "commands"::_ -> // TODO: Look into better way of handling commands that reference the command list
          printTime()
          cprintf ConsoleColor.DarkYellow "%d" commands.Length
          cprintf ConsoleColor.DarkMagenta " Commands:%s" Environment.NewLine
  
          let printCommand c =
              printTime()
  
              let (name,usageDesc,_,_) = c
              cprintf ConsoleColor.DarkYellow "%s" name
              cprintf ConsoleColor.DarkGray " %s" usageDesc
  
              printfn ""
  
          commands |> Array.iter printCommand
          state
      | [] | [""] ->
          printError "Input must not be empty"
          state
  