(define-struct directory (name contents))

(define student
  (make-directory 'home
                  (list 'login 'cshrc 'logout (make-directory 'comp210
                                                              (list (make-directory 'lab1
                                                                                    (list 'first-part 'second-part))
                                                                    (make-directory 'lab2
                                                                                    (list 'question-1 'question2 'question3)))))))

(define example1
  (make-directory 'foo
                  (list 'bar 'baz (make-directory 'to-remove
                                                  (list 'one 'two)))))


(define example2
  (make-directory 'to-remove
                  (list 'foo 'bar 'baz)))