RosettaCodeData/Task/Program-name/NewLISP/program-name.l

#!/usr/bin/env newlisp

(let ((program (main-args 1)))
  (println (format "Program: %s" program))
  (exit))