anchor.diff:          | d :: rest ->
               let name = if d = "" then infile else (d ^ "/" ^ infile)
               try open_in name
  -            with (*Sys_error m*) _ ->
  +            with Sys_error m ->
                   trynext rest
       trynext !searchpath
   
  
positive.code:     let inFile = parseArgs ()
      process_file inFile
  
  set_max_boxes 1000
  set_margin 67
  let res =
      try
          main ()
          0
      with (*Exit m*) _ ->
          2   // Per documentation for Printexc.catch
  print_flush ()
  exit res
  
  
negative.code:         try Parser.toplevel Lexer.main lexbuf
          with Parsing.Parse_error ->
              error (Lexer.info lexbuf) "Parse error"
      Parsing.clear_parser()
      close_in pi
      result
  
  