#lang racket
(define-struct state (data ptr))

(define (new-state)
  (make-state (make-vector 10 0)
              0))