;; third function (bind-func mul:[!a,NUM*,!a,!a]* (lambda (dict a b) (let ((f (tref dict 2))) (f a b))))