anchor.diff:  
   
   /// Pretty-prints a response.
  -let printResponse mview =
  +let printResponse (mview : ModelView) : Response -> Doc =
       let printVModel paxiom m =
           printModelView
               paxiom
  
positive.code:     | Other e -> String e
  
  /// Prints an ok result to stdout.
  let printOk pOk pBad =
      pairMap pOk pBad
      >> function
         | (ok, []) -> ok
  
negative.code:     0
  
  [<EntryPoint>]
  let main (argv : string[]) : int =
      match CommandLine.Parser.Default.ParseArguments<Options> argv with
      | :? Parsed<Options> as parsed -> mainWithOptions parsed.Value
      | :? NotParsed<Options> as notParsed ->
  