(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))))))