#!/usr/bin/env Rscript
files <- commandArgs(trailing = TRUE)

out <- lapply(files, function(path) {
  tryCatch(
    parse(path), 
    error = function(x) stop("File ", path, " is not parsable", call. = FALSE)
  )
})
