This is what I'm trying to do added by erkin on Wed Aug 15 10:58:26 2018
(unless (null? args)
(select (car args)
(("-h" "-H" "-?" "--help" "-help")
(rfc-usage))
(("-v" "-V" "--version" "-version")
(rfc-version))
(("-n" "-N" "--items" "-items")
(rfc-items (cdr args)))
(else
(print (car args))))))