(defstruct range 
  (min most-positive-fixnum) 
  (max (* -1 most-positive-fixnum)))

(defstruct graphReader 
  line array handler    
  (comment-char #\# )
  )

(let ((h0 10)
      (w0 10))
  (defstruct graph
    (label  " ")
    (xrange (make-range))
    (yrange (make-range))
    (h      h0)
    (w      w0)
    (matrix (make-array  `(,h0 ,w0) :initial-element #\Space))
    (ox     6)
    (oy     2))
)

(defstruct tag)
(defstruct (tagWidth (:include tag)))
(defstruct (tagError (:include tag)))