> t
(1 (2 () ()) (3 (4 () ()) (5 () ())))
> (tree? t)
#t
> (tree? t)
#t
> 
> (depth 
> (depth tree)
> (depth t)
3
> (member-tree 1 t)
#t
> (member-tree 10 t)
#f
> (member-tree 2 t)
#t
> (member-tree 5 t)
#t
> (member 1 '(2 1 3))
(1 3)
> (member-tree 5 t)
(5 () ())
> (member-tree 2 t)
(2 () ())
> (member-tree 6 t)
#f
> (and '324324234)
324324234
> (and #t #t #t '324324234)
324324234
> (or 'abc #f #f)
abc
> (member-tree 6 t)
#f
> (member-tree 2 t)
(2 () ())
> (path-tree 1 t)
(1)
> (path-tree 2 t)
(2)
> (path-tree 3 t)
[image] [image] mcar: contract violation
  expected: mpair?
  given: ()
> t
(1 (2 () ()) (3 (4 () ()) (5 () ())))
> (member-tree 3 t)
(3 (4 () ()) (5 () ()))
> (path-tree 3 t)
[image] [image] mcar: contract violation
  expected: mpair?
  given: ()
> (path-tree 3 t)
> (member-tree 3 t)
(3 (4 () ()) (5 () ()))
> (path-tree 3 t)
[image] [image] mcar: contract violation
  expected: mpair?
  given: ()
> (path-tree 3 t)
(1 2 . #f)
> (path-tree 3 t)
(1 . #f)
> (path-tree 3 t)
(1 3)
> (path-tree 4 t)
(1 3 4)
> (path-tree 5 t)
(1 3 5)
> (path-tree 6 t)
#f
> 
> (path-tree 6 t)
#f
> (path-tree 5 t)
(1 3 5)
> (path-tree 4 t)
#f
> (path-tree 3 t)
(1 3)
> (path-tree 3 t)
(1 3)
> (path-tree 4 t)
#f
> t
(1 (2 () ()) (3 (4 () ()) (5 () ())))
> (path-tree 2 t)
#f
> (or '(1 2) (/ 1 0))
(1 2)
> (path-tree 2 t)
(1 2)
> (path-tree 4 t)
(1 3 4)
> (path-tree 4 t)
(1 3 4)
> (path-tree 4 t)
(1 3 4)
> (path-tree 2 t)
(1 2)