(use-modules (trs examples)) (use-modules (srfi srfi-64)) (test-begin "arith-2") (test-equal (arith-2 '(^ (+ a b) 2)) '(+ (* a a) (+ (* 2 b a) (* b b)))) (test-end "arith-2")
