Slide 10 : 20 Program 1

(define (standard-intro header)
  (con (h 1 header) 
       (p) (hr) (p)))


(define (standard-signature)
  (con (p) (hr) (p)
       "Kurt Nørmark"))

(define (faq-entry who question answer)
  (list 'faq-entry who question answer))

(define faq-who second)
(define faq-question third)
(define faq-answer fourth)


(define (present-faq-entry entry)
 (let ((color (if (eq? (faq-who entry) 'teacher) red green)))
   (font-color color
     (con (b (con (faq-question entry) "?")) (br)
          (em (faq-answer entry)) (p)))))

       
(define green (make-color 0 130 0))