(slide :title [Skribe]
  (st [Skribe:])
  (itemize (item [A functional programming language based on Scheme])
	   (item [A markup language ,(emph [à la]) XML])
	   (item [A document ,(blue [is]) a program, 
                  a program ,(blue [looks like]) a text with markups]))

  (p [
   ,(st [Example:])
   ,(slide-pause)
   ,(skribe-prgm :file "ex/skribe.skb")]))