To run, execute
(require (planet "slides.scm" ("robby" "ecoop2004.plt" 1 0)))
Result as PDF: semantic-cast.pdf