(in-package :com.sandersn.util)
(defun file-lines (fname)
  (with-open-file (f fname)
    (loop for line = (read-line f nil)
       while line collect line)))
(defun read-file (fname)
  "str->(list (list (alist feature . value)))"
  (with-open-file (f fname)
    (read f)))