;; second function (bind-func minus:[!a,!a,!a]* (lambda (a b) (let ((dict (NUM a)) (f (tref dict 1))) (f a b))))