anchor.diff:          else
               printTime()
               cprintf ConsoleColor.Cyan " <%s> " (getChannel())
  +
  +            if state.mods |> List.exists (fun s -> s = username) then
  +                cprintf ConsoleColor.Gray "[M] "
  +
               cprintf ConsoleColor.Yellow "%s" username
               cprintf ConsoleColor.White ": %s" (getMessage())
               printfn ""
  
positive.code:     cprintf ConsoleColor.Magenta "%s " status
      printfn ""
  
  type PipeStatus<'a> =
      | Continue of 'a
      | Halt
  
  let processCritical (line:string) =
      let code =
          let split = line.Split ' '
          if split.Length > 0 then split.[1] else ""
  
      match code with
      | "004" ->
          println "Logged in"
  
negative.code:     | "NOTICE" ->
          println "Failed to login"
          Halt
      | "MODE" ->
          let split = (line.Split ' ')
          let mode = split.[3].[0]
  
          if mode = '+' then
              Result {state with mods = split.[4]::state.mods}
          else
              let newMods = state.mods |> List.filter (fun s -> s <> split.[4])
              Result {state with mods = newMods}
      | _ ->
          Continue (code,line,state)
  
  /// Processes messages that are printed. Ex: PRIVMSG, JOIN, PART.
  let processNormal (code,line:string,state) =
      /// Returns the index of the first found character in the list, or the end of the string otherwise.
      let getIndexOrEnd (str:string) (list:string[]) =
          list
  