+
+(define (main)
+ (let loop ((args (cdr (argv)))
+ (host "localhost")
+ (port 8000))
+ (match args
+ ((or "-h" "--help")
+ (print-usage))
+ (((or "-p" "--port") pstr rest ...)
+ (loop rest host (string->number pstr)))
+ (("--hostname" hstr rest ...)
+ (loop rest hstr port))
+ (()
+ (boot-sam host port)))))