(define-record-type <map>
  (make-map width height layers)
  map?
  (width map-width)
  (height map-height)
  (layers map-layers))


(define (read-map port)
  (json-read port)
  )