anchor.diff:          state
       | ModeratorJoin (channel, user) ->
           printTime()
  -        cprintf ConsoleColor.Cyan "<%s> " channel
  -        cprintf ConsoleColor.Magenta "Moderator "
  -        cprintf ConsoleColor.White "%s" user
  -        cprintf ConsoleColor.Magenta " joined"
  +        cprintf ConsoleColor.DarkCyan "<%s> " channel
  +        cprintf ConsoleColor.DarkMagenta "Moderator "
  +        cprintf ConsoleColor.DarkYellow "%s" user
  +        cprintf ConsoleColor.DarkMagenta " joined"
           printfn ""
   
           let newMods = (channel, user)::state.mods
           {state with mods = newMods}
       | ModeratorLeft (channel, user) ->
           printTime()
  -        cprintf ConsoleColor.Cyan "<%s> " channel
  -        cprintf ConsoleColor.Magenta "Moderator "
  -        cprintf ConsoleColor.White "%s" user
  -        cprintf ConsoleColor.Magenta " left"
  +        cprintf ConsoleColor.DarkCyan "<%s> " channel
  +        cprintf ConsoleColor.DarkMagenta "Moderator "
  +        cprintf ConsoleColor.DarkYellow "%s" user
  +        cprintf ConsoleColor.DarkMagenta " left"
           printfn ""
   
           // TODO: Ensure only moderators from the current channel are removed
  
positive.code:     match msg with
      | ChatMessage (channel, user, msg) ->
          printTime()
          cprintf ConsoleColor.Cyan "<%s> " channel
  
          if user = channel then
              cprintf ConsoleColor.Gray "[B] "
          elif user |> isModerator channel then
              cprintf ConsoleColor.Gray "[M] "
  
          cprintf ConsoleColor.Yellow "%s" user
          cprintf ConsoleColor.White ": %s" msg
          printfn ""
          state
      | Join (channel, username) ->
  
negative.code: 
  let private printTime() =
      let time = DateTime.Now.ToString "[hh:mm:ss tt]"
      cprintf ConsoleColor.DarkGray "%s " time
  
  let private printStatusMessage channel user status =
      printTime()
      cprintf ConsoleColor.DarkCyan "<%s> " channel
      cprintf ConsoleColor.DarkYellow "%s " user
      cprintf ConsoleColor.DarkMagenta "%s " status
      printfn ""
  
  let processMessage msg state =
  