> l
((1 (2)) (((3) 4) (5 (6)) () (7)) 8)
> l
((1 (2)) (((3) 4) (5 (6)) () (7)) 8)
> (atom? 1)
#t

> (count-atoms l)
8
> 
> (flatten l)
(((1) ((2))) ((((3)) (4)) ((5) ((6))) () ((7))) (8))
> (flatten l)
(((1) (((2) ()) ())) (((((3) ()) ((4) ())) (((5) (((6) ()) ())) (() (((7) ()) ())))) ((8) ())))
> \
> (flatten l)
(1 2 3 4 5 6 7 8)
> (deep-reverse l)
((1 (2)) (((3) 4) (5 (6)) () (7)) 8)
> (deep-reverse l)
[image] [image] snoc: undefined;
 cannot reference an identifier before its definition
> (deep-reverse l)
(8 ((7) () ((6) 5) (4 (3))) ((2) 1))
> (deep-reverse l)
[image] [image] rcons: undefined;
 cannot reference an identifier before its definition
> (deep-reverse l)
(((() . 8) (((() () . 7)) (() () . 6) . 5) (() . 4) () . 3) (() () . 2) . 1)
> 
> (deep-reverse l)
(((() . 8) (((() () . 7)) (() () . 6) . 5) (() . 4) () . 3) (() () . 2) . 1)
> 
> (deep-foldr + ? 0)
> (deep-foldr + id 0)
deep-foldr: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 4
  given: 3
> (deep-foldr + id 0 l)
36
> (count-atoms l)
deep-foldr: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 4
  given: 3
> (count-atoms l)
deep-foldr: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 4
  given: 3
> (count-atoms l)
8
> (flatten l)
> (flatten l)
(1 2 3 4 5 6 7 8)
> (deep-reverse l)
deep-foldr: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 4
  given: 3
> (deep-reverse l)
deep-foldr: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 4
  given: 3
> (deep-reverse l)
(8 ((7) () ((6) 5) (4 (3))) ((2) 1))
> 
> (deep-foldr + id 0 l)
foldr: undefined;
 cannot reference an identifier before its definition
> (deep-foldr + id 0 l)
mcar: contract violation
  expected: mpair?
  given: 1
> (deep-foldr + id 0 l)
36