path: root/scratch/a.brev

(import brev mdg)

(print "hi there")

(define 
	(strange a b)
	(list 'product (* a b)))

(define
  (strange a b)
	(list 'sum (require even? (+ a b))))

(print
 (map strange '(1 2 3 4) '(5 5 7 8))
 ((over (+ x x y i)) '(10 20 40) '(3 6 9)))