#!/usr/bin/csi -script
;;;
;;; Lunch determination program
;;;

(define DEFAULT-ARGUMENTS '("flame broiler"
                            "jersey mikes"
                            "fish grill"
                            "habit grill"))

(define (choice sequence)
  (list-ref sequence (random (length sequence))))

(define (main args)
  (display "You should go to lunch at ")
  (display (choice (if (null? args)
                       DEFAULT-ARGUMENTS
                       args)))
  (newline))

(cond-expand
 (chicken-script
  (main (command-line-arguments)))
 (else))