anchor.diff:                        |> String
                       | Fraction (n,d) ->
                         let ns, ds = string n, string d
  -                      String(' ',ds.Length-ns.Length) + ns + "/" + ds + " " + string a
  -                  color + textValue + progress +
  -                  String('\b', textValue.Length + progress.Length) + colorReset
  +                      String(' ',ds.Length-ns.Length) + ns + "/" + ds
  +                      + " " + string a
  +                  currentLength <- textValue.Length + progress.Length
  +                  color + textValue + progress
  +                  + String('\b', currentLength) + colorReset
                     |> originalStdout.Write
                     originalStdout.Flush()
                 )
  
positive.code:     if RuntimeInformation.IsOSPlatform OSPlatform.Windows then
        WindowsConsole.enableVTMode()
  #else
      //WindowsConsole.enableVTMode()
  #endif
      ProgressIndicator.originalStdout.Flush()
      let encoding = ProgressIndicator.originalStdout.Encoding
  
negative.code:   let text s =
      textValue <- s
  
    let mutable private currentLength = 0
  
    let update progress =
      progressValue :=
        match progress with
  