(import quasiwalk brev-separate)

(unless
  (equal?
    '(oof (rab zab
               '(in the yard)
               fo
               `(make-believe ,(cilegna `(bird ,(ekil 'wings))))))
    (quasiwalk
      (as-list reverse)
      '(foo (bar baz
                 '(in the yard)
                 of
                 `(make-believe ,(angelic `(bird ,(like 'wings))))))))
  (error "(quasiwalk (as-list reverse) (quote (foo (bar baz (quote (in the yard)) of (quasiquote (make-believe (unquote (angelic (quasiquote (bird (unquote (like (quote wings)))))))))))))"))

(unless
  (equal?
    '(oof (rab zab
               '(in the yard)
               fo
               `(make-believe `(angelic `(bird ,(like 'wings))))))
    (quasiwalk
      (as-list reverse)
      '(foo (bar baz
                 '(in the yard)
                 of
                 `(make-believe `(angelic `(bird ,(like 'wings))))))))
  (error "(quasiwalk (as-list reverse) (quote (foo (bar baz (quote (in the yard)) of (quasiquote (make-believe (quasiquote (angelic (quasiquote (bird (unquote (like (quote wings)))))))))))))"))

(unless
  (equal?
    '(siht si '(an example))
    (quasiwalk (as-list reverse) '(this is '(an example))))
  (error "(quasiwalk (as-list reverse) (quote (this is (quote (an example)))))"))

(unless
  (equal?
    '(siht si `(another ,(elpmaxe)))
    (quasiwalk (as-list reverse) '(this is `(another ,(example)))))
  (error "(quasiwalk (as-list reverse) (quote (this is (quasiquote (another (unquote (example)))))))"))

(unless
  (equal? '`(quite ,ylpmis) (quasiwalk (as-list reverse) '`(quite ,simply)))
  (error "(quasiwalk (as-list reverse) (quote (quasiquote (quite (unquote simply)))))"))