(load (string-append laml-dir "laml.scm"))
(style "simple")
(load (string-append (startup-directory scheme-system) "functions.scm"))

(generic-page-1
  "Demonstration of abstractions"
  (con
    (standard-intro "My FAQ")
    (ul 
     (map present-faq-entry
       (list
          (faq-entry  'teacher
            "What is Lisp"
            "Lisp is a list processing language...")

          (faq-entry  'student
            "What is LAML"
            "LAML is Scheme in which HTML is mirrored...")

          (faq-entry  'student
            "What is the main differences between Scheme and Lisp"
            "Scheme is a relatively small, but powerful Lisp dialect...")
        )))
    (standard-signature)
  )
  white black blue blue
)