(define-struct producto (código nombre precio unidades_disponibles))
(define (adicionar-producto lproductos producto)
  (cond
    [(empty? lproductos) empty]
    [(equal? (producto-código producto) (producto-código (first lproductos))) (cons (make-producto
                                                                                     (producto-código (first lproductos))
                                                                                     (producto-nombre (first lproductos))
                                                                                     (producto-precio (first lproductos))
                                                                                     (+ (producto-unidades_disponibles producto)
                                                                                        (producto-unidades_disponibles (first lproductos))
                                                                                        ))
                                                                                    (adicionar-producto (rest lproductos) producto))
                                                                              ]
    [else (cons (first lproductos) (adicionar-producto (rest lproductos) producto))]
    ))

(adicionar-producto (cons (make-producto 202012 'Peine 2000 10)
                           (cons (make-producto 205013 'Acondicionador 16000 20)
                                 (cons (make-producto 202 'Arroz 3500 40)
                                       (cons (make-producto 2012 'Peineta 2700 15) empty)
                                       )
                                 )
                           ) (make-producto 202 'Arroz 3500 40))