(define (course-home-page name-form number-form lecture-list current-form
                          link-form process-form)

  ; The real implementation of
  ; the course home page language

)



(define (name nm) 
 (list 'name nm))

(define (number-of-lectures n) 
 (list 'number-of-lectures n))

(define (lecture-names . name-lst) 
 (cons 'lecture-names name-lst))

(define (current-lecture n) 
 (list 'current-lecture n))

(define (links . lnk-list) 
 (cons 'links lnk-list))