Taller - Balance de los servicios generados cada mes

Enunciado: hacer el balance de los servicios generados cada mes entrada:
empresa (código nombre s1 s2 s3 s4)

- semana (motos carros 6ruedas)
- motos(cant brillo sinbri)
- carros( cant básico pulido_en pulido_ence_cojin)
- 6 ruedas( cant básico_6ruedas especial)
-  servicio (clase valor)                       
- vehiculo( tipo  servicio valor)
- salida( costos ganancias)
- motos=cantidad de motos

 salida:
-           costos y ganancias de semana especifica
-           servicio de mayor ganancia en una semana dada
-           semana con mayor ganancias en el mes
-           costos y ganancias generadas en el mes

acciones:
- definir estructuras
- definir costos y ganancias
- mayor ganancias de servicios
- costos y ganancias generadas en el mes

Toma de pantalla del código en consola

; ===========================================================================
(define-struct empresa(codigo nombre s1 s2 s3 s4))
(define-struct semana (n°s motos carros 6ruedas))
(define-struct motos (cant brillo sinbri))
(define-struct carros( cant basico pulidoence pulido.encecojin))
(define-struct 6ruedas(cant basic6ruedas especial))
(define-struct servicio ( brillo sinbri  basico pulidoence pulido.encecojin basic6ruedas especial ))
(define-struct costo ( brillo sinbri  basico pulidoence pulido.encecojin basic6ruedas especial ))
(define-struct  salida( costos ganancias)) 

  
(define empresa1 (make-empresa 002 'lavaexpress 
                             (make-semana 1(make-motos 12 65 50) 
                                          (make-carros 85 20 15 58) 
                                          (make-6ruedas 20 13 12))
  
                             (make-semana 2(make-motos 26 64 20) 
                                            (make-carros 15 25 10 12) 
                                            (make-6ruedas 22 33 22))
  
                             (make-semana 3(make-motos 46 25 30) 
                                            (make-carros 85 20 15 12) 
                                            (make-6ruedas 50 23 22))

                              (make-semana 4(make-motos 52 20 12) 
                                            (make-carros 15 40 13 16) 
                                            (make-6ruedas 23 10 11))))


(define servi1 (make-servicio 4000 3000 6000 7000 10000 10000 15000))
(define costo1 (make-costo 1500 1000 3000 4000 5000 6000 8000))

;programa que da a comnocer las ganancias por semana de cada servicio
;motos:
(-(*(servicio-brillo servi1)
(motos-brillo(semana-motos(empresa-s1 empresa1))))
(*(motos-brillo(semana-motos (empresa-s1 empresa1)))(costo-brillo costo1)))

(-(*(servicio-brillo servi1)
(motos-sinbri(semana-motos(empresa-s1 empresa1))))
(*(motos-sinbri(semana-motos (empresa-s1 empresa1)))(costo-sinbri costo1)))

;carros:
(-(*(servicio-basico servi1)
(carros-basico(semana-carros(empresa-s1 empresa1))))
(*(carros-basico(semana-carros (empresa-s1 empresa1)))(costo-basico costo1)))

(-(*(servicio-pulidoence servi1)
(carros-pulidoence(semana-carros(empresa-s1 empresa1))))
(*(carros-pulidoence(semana-carros (empresa-s1 empresa1)))(costo-pulidoence costo1)))

(-(*(servicio-pulido.encecojin servi1)
(carros-pulido.encecojin(semana-carros(empresa-s1 empresa1))))
(*(carros-pulido.encecojin(semana-carros (empresa-s1 empresa1)))(costo-pulido.encecojin costo1)))

;6 ruedas:

(-(*(servicio-basic6ruedas servi1)
(6ruedas-basic6ruedas(semana-6ruedas(empresa-s1 empresa1))))
(*(6ruedas-basic6ruedas(semana-6ruedas (empresa-s1 empresa1)))(costo-basic6ruedas costo1)))

(-(*(servicio-especial servi1)
(6ruedas-especial(semana-6ruedas(empresa-s1 empresa1))))
(*(6ruedas-especial(semana-6ruedas (empresa-s1 empresa1)))(costo-especial costo1)))
             
; ===========================================================================