+ Arg.parse
+ []
+ (function
+ | path when Sys.file_exists path ->
+ (match !input with
+ | Paths_on_stdin ->
+ input := Root_paths [path]
+ | Root_paths paths ->
+ input := Root_paths (path :: paths)
+ )
+ | path ->
+ eprintf "File does not exist: %S\n%!" path;
+ exit 1
+ )
+ "";