> dl
((1 (2)) (((3) 4) (5 (6)) () (7)) 8)
> 
> (count-atoms dl)
8
> (flatten dl)
(1 2 3 4 5 6 7 8)
> dl
((1 (2)) (((3) 4) (5 (6)) () (7)) 8)
> (reverse dl)
(8 (((3) 4) (5 (6)) () (7)) (1 (2)))
> (reverse dl)
(8 (((3) 4) (5 (6)) () (7)) (1 (2)))
> (deep-reverse dl)
(((() 8) ((((() (() 7)) ()) ((() (() 6)) 5)) ((() 4) (() 3)))) ((() (() 2)) 1))
> (deep-reverse dl)
(8 ((7) () ((6) 5) (4 (3))) ((2) 1))
> (deep-reverse dl)
[image] [image] mcar: contract violation
  expected: mpair?
  given: 8
> (deep-reverse dl)
(8 ((7) () ((6) 5) (4 (3))) ((2) 1))
> 
> (count-atoms dl)
8
> (flatten dl)
(1 2 3 4 5 6 7 8)
> (deep-reverse dl)
(8 ((7) () ((6) 5) (4 (3))) ((2) 1))