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