anchor.diff:          | x :: _ -> res <- x
           | [] -> failwith "No data found"
   
  -    supervisedExec (printfn "%s") (printfn "%s") firstLine command args dir vars
  +    supervisedExec (printfn "%s") (printfn "%s") firstLine true command args dir vars
       res
   
   
  
positive.code: 
  
  let ExecBuffered checkError =
      supervisedExec ignore ignore checkError
  
  let Exec checkError = 
      supervisedExec (printfn "%s") (printfn "%s") checkError
  
  let ExecSingleLine checkError (command : string) (args : string) (dir : DirectoryInfo) (vars : Map<string, string>) =
      let mutable res : string = null
  
negative.code:             processLine line
              read processLine stm buffer@[line]
  
      let asyncOut = if redirect then async { return read onOut proc.StandardOutput List.empty |> MonitorCommand.Out }
                                 else async { return List.empty |> MonitorCommand.Out }
      let asyncErr = if redirect then async { return read onErr proc.StandardError List.empty |> MonitorCommand.Err }
                                 else async { return List.empty |> MonitorCommand.Err }
      let asyncCode = async { proc.WaitForExit(); return proc.ExitCode |> MonitorCommand.End }
      let res = [ asyncCode ; asyncOut ; asyncErr ] |> Async.Parallel |> Async.RunSynchronously 
      match res.[0], res.[1], res.[2] with
  