anchor.diff:          else
             main state
   
  +    | CompilerLocation ->
  +        let locopt =
  +          FSharpEnvironment.BinFolderOfDefaultFSharpCompiler
  +            FSharpCompilerVersion.LatestKnown
  +        match locopt with
  +        | None -> printMsg "ERROR" "Could not find compiler"; main state
  +        | Some loc ->
  +
  +        match state.OutputMode with
  +        | Text -> printfn "DATA: compilerlocation\n%s\n<<EOF>>" loc
  +        | Json -> prAsJson { Kind = "compilerlocation"; Data = loc }
  +
  +        main state
  +
       | Help ->
           match state.OutputMode with
           | Text -> Console.WriteLine(helpText)
  
positive.code:     outputmode {json,text}
        - switches the output format. json offers richer data
          for some commands
      "
      
    let outputText = @"
  
negative.code:       return HelpText sym
      }
  
    let compilerlocation = parser {
      let! _ = string "compilerlocation"
      return CompilerLocation
      }
  
    // Parses always and returns default error message
    let error = parser { return Error("Unknown command or wrong arguments") }
  
  