(setf tbl (list "existential graphs are oval, nested and cool"))
(with-open-file (str "unix-path" :direction :output
    :if-exists :supersede)
   (print (list 'setf 'tbl (list 'quote tbl)) str ) (terpri str))