(define (sexpr2cas args) (let* ((a (cas-xtm-to-string args)) (b (regex:replace-all a "}" "\)")) (c (regex:replace-all b "{" "\(")) (res (cptr->string (casppoff c)))) res))