(DEFINE eq?-los-list
  ; TYPE: symbol, (list of symbol)
  ;              -> (list of boolean)
  (LAMBDA (s los)
    ; ENSURES: result is a list of the
    ; length as los, and the ith element
    ; of result is #t iff ith element of
    ; los is s
    (COND
     [(null? los) '()]
     [ELSE (cons (eq? s (car los))
		 (eq?-los-list
		   s (cdr los)))])))