Asistente de cálculo de ganancias de teatro

#lang racket

(define (ayuda)
  (displayln "
      +==-.                  .-=*+
     -+  .:=====-:....:-=+#%@@@@@@-
     -+         .::-@@@@@@@@@@@@@@-
     -+             @@@@@@@@@@@@@@-
     -+    -*##*+.  @@%=-::-*@@@@@-
     :*   *+=---=*- @*-+***+=-@@@@:
      %             @@@@@@@@@@@@@@
      *:            @@@@@@@@@@@@@*
      .#            @@@@@@@@@@@@@.
       -*     +-    @@@@*=@@@@@@-
        -*    -@@#*+=-:  *@@@@@-
         :*:   .+#@@  :=%@@@@%:
           =+.      @@@@@@@@+
             =+:    @@@@@%=
               :++: @@@*:
                  :++:
")
  (displayln "----- ASISTENTE DE GANANCIA DE TEATRO -----")
  (displayln "Para calcular las ganancias con valores predeterminados, escriba (calcular_ganancias)")
  (displayln "Para calcular ganancias con valores personalizados, escriba (calcular_ganancias_personalizadas)")
  (displayln "Para volver a leer este menu, escriba (ayuda)")
  )

(ayuda)

(define (profits assistants)
  (- (* assistants 10000)30000)
  )

(define (differentProfits nAdult nKid pAdult pKid pricePerFunction)
  (- (+ (* nAdult pAdult)(* nKid pKid)) pricePerFunction)
  )

(define (calcular_ganancias)
  (define asistentes 0)
   (displayln "--- GANANCIA DESPUÉS DE UNA FUNCIÓN ---")
   (displayln "¿Cuántas personas asistieron a la función?")
  (set! asistentes (read))
   (displayln "La ganancia después de la función es de:")
   (profits asistentes)
  )
(define (calcular_ganancias_personalizadas)
  (define numeroAdultos 0)
  (define precioAdultos 0)
  (define numeroNiños 0)
  (define precioNiños 0)
  (define precioPorFunción 0)
   (displayln "--- GANANCIA DESPUÉS DE UNA FUNCIÓN (PERSONALIZADA) ---")
   (displayln "¿Cuál es el precio por adulto?")
  (set! precioAdultos (read))
   (displayln "¿Cuántos adultos asistieron?")
  (set! numeroAdultos (read))
   (displayln "¿Cuál es el precio por niño?")
  (set! precioNiños (read))
   (displayln "¿Cuántos niños asistieron?")
  (set! numeroNiños (read))
   (displayln "¿Cuánto costó la función?")
  (set! precioPorFunción (read))
   (displayln "Las ganancia después de la función es:")
  (differentProfits numeroAdultos numeroNiños precioAdultos precioNiños precioPorFunción)
  )