cas2sexpr   scheme

(define (cas2sexpr . args)
  (list 'quote (scmcas 'eval (apply string-append (map (lambda (x) 
                                                         (if (string? x) 
                                                             x
                                                            (sexpr->string x))) 
                                                       args)))))