(in-package shfact)

(defun main () (print "Welcome to afact
!")
       (print (uiop:command-line-arguments))
       (let ((arg (car (uiop:command-line-arguments))))
	 (if arg (print (my-fact:afact (parse-integer arg)))
	     (print "Please call like
$ ./shfact -- 3
Non command line arguments could be put before the --
")))
       (terpri)
       (uiop:quit))