anchor.diff:      /// Traces an exception details (in red)
       let printException (ex : Exception) = exceptionAndInnersToString ex |> printError "%s"
       
  -    /// Print error and exit application
  -    let printExit fmt = 
  -        printError fmt
  -        Environment.Exit(-1)
  -    
  -    let exit() = 
  -        printLine()
  -        printError "Terminating the application"
  -        Environment.Exit(-1)
  -
   [<AutoOpenAttribute>]
   module ResultTypeHelpers = 
       /// Append a new error to the error results. This is helpful when
  
positive.code:     let printInfo fmt = cprintfn ConsoleColor.White fmt
      let log fmt = cprintfn ConsoleColor.White fmt
  
      let printAndExit (error) = 
          printError error
          Environment.Exit(-1)
      
      /// Traces a line
  
negative.code:     
      /// Overall terminator which exits the application in case of 
      /// critical error
      let printAndExit (result : Result<_, _>) = 
          let raiseExn msgs = 
              msgs
              |> Seq.map (sprintf "%O")
              |> String.concat (Environment.NewLine + "\t")
              |> fun x -> 
                  printAndExit x
                  x
              /// Note: This is done to make the F# type inference work correctly. Without the
              /// below it thinks we are returning unit
  