anchor.diff:  let cprintf color fmt =
       Printf.kprintf
           (fun s ->
  -            let old = Console.ForegroundColor
  +            //let old = Console.ForegroundColor
               Console.ForegroundColor <- color
               Console.Write s
  -            Console.ForegroundColor <- old
  +            //Console.ForegroundColor <- old
           )
           fmt
   
  
positive.code: let printTime() =
      cprintf ConsoleColor.Green "%s" (time())
  
  let printMessage sender content =
      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
      printfn ""
  
  type PipeStatus<'a> =
  
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"
      | _ ->
          ()
  
  