#! /bin/false

(format t "Hello, world!~%")
(format t "Arguments: ~S~%" runlisp:*command-line-strings*)
(format t "cl-user symbols: ~S~%"
	(loop for s being the present-symbols of "CL-USER"
	      collect s))
(format t "Packages: ~S~%"
	(loop for p in (list-all-packages) collect (package-name p)))