(def grep* (rex path) (let rex (re rex) (accum return (ontable k v (file-table path) (if (re-match rex v) (return k))))))
-----