(bind-func Cpxf (lambda (re im) (let ((c:Complexf* (salloc))) (tset! c 0 re) (tset! c 1 im) (pref c 0))))