anchor.diff:  let printTime() =
       cprintf ConsoleColor.Green "%s" (time())
   
  -let printMessage sender content =
  +let printStatusMessage channel user status =
       printTime()
  -    cprintf ConsoleColor.Yellow " %s" sender
  -    cprintf ConsoleColor.White ": %s" content
  -    printfn ""
  -
  -let printStatusMessage source status event =
  -    printTime()
  -    cprintf ConsoleColor.Yellow " %s" source
  -    cprintf ConsoleColor.White " %s " status
  -    cprintf ConsoleColor.Yellow "%s" event
  +    cprintf ConsoleColor.Cyan " <%s> " channel
  +    cprintf ConsoleColor.Yellow "%s " user
  +    cprintf ConsoleColor.White "%s " status
       printfn ""
   
   type PipeStatus<'a> =
  
positive.code: let cprintf color fmt =
      Printf.kprintf
          (fun s ->
              let old = Console.ForegroundColor
              Console.ForegroundColor <- color
              Console.Write s
              Console.ForegroundColor <- old
          )
          fmt
  
  
negative.code:                 let msg = getMessage()
                  msg.Substring(0, msg.IndexOf " ")
  
              printStatusMessage (getChannel()) user (getMessage().Substring(user.Length+1))
          else
              printTime()
              cprintf ConsoleColor.Cyan " <%s> " (getChannel())
              cprintf ConsoleColor.Yellow "%s" username
              cprintf ConsoleColor.White ": %s" (getMessage())
              printfn ""
      | "JOIN" ->
          printStatusMessage (getChannel()) username "joined"
      | "PART" ->
          printStatusMessage (getChannel()) username "left"
      | _ ->
          ()
  
  