(load (string-append laml-dir "laml.scm")) (style "course-plan/course-plan") (load (string-append (startup-directory) "../" "course-description.scm")) (init-course-plan) (lecture-plan 'lists (literature (con-space "Chapter 3 of" (string-it "Structure and Interpretation of Computer Programs")) ) (guide "Read it all carefully") (exercises (brl (list "Exercise 10" "Exercise 11" (course-exercise-ref 'ex1 "A" 'lists) )) ) (references (brl (list (a-tag (leno-lecture "demo-lecture") "Slides to this lecture"))) ) ) (course-exercise 'ex1 "A" "Write a function which merges the elements of two lists, such that elements in the resulting lists alternates.")