#lang racket

;;Objetos según un tipo
(define cosa%
  (class object%
    (init-field
     (tipo 0)
     )
    (define/public get-tipo
      (lambda ()
        tipo ))
    (super-new)
    ))
;;;;;;;;;;;;
(define obstaculo
  (make-object cosa% 1))
(define comida
  (make-object cosa% 2))
(define blanco
  (make-object cosa% 0))

(provide obstaculo comida blanco)