Scheme / Dr Racket - ejercicio struct almacen

Enunciado Ejercicio Scheme: Un almacén tiene dos sacos para la venta, se necesita un programa al cual, un cliente ingrese una talla y la marca, y el programa le muestre un mensaje si el saco existe o no en el almacén.

; ==========================================================
(define-struct Saco(talla marca))

(define saco1 (make-Saco 's 'xxxx))

(define saco2 (make-Saco 'm 'zzxx))



(define (almacen e)

  (cond

    [(not (Saco? e)) "datos inalidos"]

    [(and (symbol=? (Saco-talla e) 's) (symbol=? (Saco-marca e) 'xxxx)) "esta en inventario"]

    [(and (symbol=? (Saco-talla e) 'm) (symbol=? (Saco-marca e) 'zzxx)) "esta en inventario"]

    [else "no existe"]))



;prueba

(almacen saco1)
; ==========================================================