(bind-func cas2xtm_scm (lambda (cstr) (let ((res (cas2xtm:[String*,String*]* (Str cstr)))) (cstring res))))