(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)))))"))

(unless
  (equal?
    '(ni eht `(garden of ',nede))
    (quasiwalk
      (as-list reverse)
      (let ((eden 'shoes)) '(in the `(garden of ',eden)))))
  (error "(quasiwalk (as-list reverse) (let ((eden (quote shoes))) (quote (in the (quasiquote (garden of (quote (unquote eden))))))))"))

(unless
  (equal?
    '(ni eht '(garden of 'shoes))
    (quasiwalk
      (as-list reverse)
      (let ((eden 'shoes)) `(in the '(garden of ',eden)))))
  (error "(quasiwalk (as-list reverse) (let ((eden (quote shoes))) (quasiquote (in the (quote (garden of (quote (unquote eden))))))))"))

(unless
  (equal?
    '(ni eht (nedrag fo 'shoes))
    (quasiwalk
      (as-list reverse)
      (let ((eden 'shoes)) `(in the (garden of ',eden)))))
  (error "(quasiwalk (as-list reverse) (let ((eden (quote shoes))) (quasiquote (in the (garden of (quote (unquote eden)))))))"))

(unless
  (equal?
    '(ni eht (nedrag fo seohs))
    (quasiwalk
      (as-list reverse)
      (let ((eden 'shoes)) `(in the (garden of ,eden)))))
  (error "(quasiwalk (as-list reverse) (let ((eden (quote shoes))) (quasiquote (in the (garden of (unquote eden))))))"))