anchor.diff:  
   let private printTime() =
       let time = DateTime.Now.ToString "[hh:mm:ss tt]"
  -    cprintf ConsoleColor.Green "%s " time
  +    cprintf ConsoleColor.DarkGray "%s " time
   
   let private printStatusMessage channel user status =
       printTime()
  -    cprintf ConsoleColor.Cyan "<%s> " channel
  -    cprintf ConsoleColor.White "%s " user
  -    cprintf ConsoleColor.Magenta "%s " status
  +    cprintf ConsoleColor.DarkCyan "<%s> " channel
  +    cprintf ConsoleColor.DarkYellow "%s " user
  +    cprintf ConsoleColor.DarkMagenta "%s " status
       printfn ""
   
   let processMessage msg state =
  
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:         state
      | ModeratorJoin (channel, user) ->
          printTime()
          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.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
  