(defpackage fwoar.safe-reader
  (:use :cl))

(in-package :fwoar.safe-reader)

(defun safe-read (stream)
  )

(with-input-from-string (s "(a b (c d (e f) (g h) e) a s)")
  )