(load "student.scm")
(define sam (make-student "Rebelsky" "Samuel" "00000032"
                            "Computer Science" 2010))
(display-student sam)
(add-student-homework! sam 'minus)
(display-student sam)
(add-student-homework! sam 'check)
(display-student sam)
(add-student-homework! sam 'minus)
(add-student-homework! sam 'minus)
(add-student-homework! sam 'check-plus)
(display-student sam)