> (deep-reverse dl)
(8 ((7) () ((6) 5) (4 (3))) ((2) 1))
> (deep-reverse dl)
((1 (2)) (((3) 4) (5 (6)) () (7)) 8)
> dl
((1 (2)) (((3) 4) (5 (6)) () (7)) 8)
> 
> (count-atoms dl)
8
> (flatten dl)
[image] [image] deep-foldr: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 4
  given: 3
> (flatten dl)
(1 2 3 4 5 6 7 8)
> (deep-reverse dl)
(8 ((7) () ((6) 5) (4 (3))) ((2) 1))
> dl
((1 (2)) (((3) 4) (5 (6)) () (7)) 8)
> (deep-reverse dl)
[image] [image] mcar: contract violation
  expected: mpair?
  given: 8
> (deep-reverse dl)
(8 ((7) () ((6) 5) (4 (3))) ((2) 1))
[image] read-syntax: unexpected `)`
> (deep-reverse dl)
(8 ((7) () ((6) 5) (4 (3))) ((2) 1))