recode fun

;  (if (= op xFUN)
;    (do
;	(set arity (& (>> arg 8) 255))
;	(set fs (+ (& arg 255) 1))
;	(set arg (+ (<< (- fs arity) 8) fs))))

eval funcall

;  (set fs (& arg 255))
;  (set k (>> arg 8))		; decode k, fs
...
;  (set SP (- FP fs))		; delete frame
