(import (scheme base)
(picrin test))
(test-begin)
(define-syntax fard
(syntax-rules ()
((fard a b) (- a b))))
(test -1 (fard 1 2))
(define (fard a b)
(+ a b))
(test 3 (fard 1 2))
(test 3 (apply fard (list 1 2)))
(test-end)