(defun symbol-to-string (x) 
"Args: x 
Converts symbols to their print names inside x"
(cond ( (stringp x) x) 
      ( (symbolp x)  (symbol-name x))
      ( (sequencep x) (mapcar #'symbol-to-string (coerce x 'list)))
      ( (matrixp x) (apply #'bind-columns (symbol-to-string (column-list x))))
      (t x)
      )
)