(defun ocaml-build-email-address (name host) 
  (format nil "let name=~S and tld=~S in name ^ \"@\" ^ tld;;" 
          name host)) 

 (defun ocaml-build-email-address-2 (name host) 
  (format nil "let name=~S and tld=~S in String.concat \"@\" [name;tld];;" 
          name host)) 

 (defun snobol-build-email-address (name host &optional (revp nil)) 
  (if revp 
      (concatenate 'string 
                   "output = reverse(" 
                   (quotify (reverse host)) 
                   " " 
                   (quotify (reverse name)) 
                   ")") 
      (concatenate 'string 
                   "output = (" 
                   (quotify name) " " (quotify host) ")"))) 

 (defun sql-build-email-address (name host)
  (format nil "select '~A' || '~A';" name host))

 (defun a+-build-email-address (name host)
  (format nil "~S,~S" name host))