(load "/home/rebelsky/Web/Scheme/webutils.ss")

(define story
  (lambda (proper-noun intransitive-verb-1 intransitive-verb-2)
    (make-page
      (head (string-append proper-noun "'s story"))
      (body (string-append
             (paragraph (string-append proper-noun " "
                                       intransitive-verb-1 "."))
             (paragraph (string-append proper-noun " "
                                       intransitive-verb-2 ".")))))))

(define page
  (lambda ()
    (story (get-cgi-variable 'proper-noun "PROPER-NOUN")
           (get-cgi-variable 'intransitive-verb-1 "INTRANSITIVE-VERB")
           (get-cgi-variable 'intransitive-verb-2 "INTRANSITIVE-VERB"))))