Asistente de Cálculo de Impuestos

#lang racket

(display "                  .::
              ..::=++=::.
          .-=++++++++++++++-
         -+++++++++++++++++++:
        :++++++=. -++=++++++++
        .++++++-  =++-....
         :=+++++=-++++==-:.
           .:-=+++++++++++++=:
                 .=++-.:++++++=
       .----====  -++-  -++++++:
        =++++++++-=++=:-+++++++
         -+++++++++++++++++++=.
           .-=++++++++++++=:.
                 .=++-.
                   ..

")
(displayln "----- ASISTENTE PARA CÁLCULO DE IMPUESTOS -----")
(displayln "Para calcular un impuesto del 15%, escriba (impuesto_15)")
(displayln "Para calcular un impuesto de otro porcentaje, escriba (impuesto_x)")
(displayln "Para volver a este menú, escriba (ayuda)")
(displayln "-----------------------------------------------")

;Calcular impuesto del 15%
(define (taxCalculator15 payment)
  (* payment (/ 15 100))
  )

;Calcular impuesto del x%
(define (taxCalculatorX payment percentage)
  (* payment (/ percentage 100))
  )

(define (impuesto_15)
  (define pago 0)
  (displayln "--- CALCULAR IMPUESTO DEL 15% ---")
  (displayln "¿Cuál es el pago?")
  (set! pago (read))
  (displayln "El impuesto correspondiente al pago es de:")
  (taxCalculator15 pago)
  )

(define (impuesto_x)
  (define pago 0)
  (define porcentaje 0)
  (displayln "--- CALCULAR IMPUESTO DE OTRO PORCENTAJE ---")
  (displayln "¿Cuál es el pago?")
  (set! pago (read))
   (displayln "¿Cuál es el porcentaje?")
  (set! porcentaje (read))
  (displayln "El impuesto correspondiente al pago es de:")
  (taxCalculatorX pago porcentaje)
  )

(define (ayuda)
  (display "                  .::
              ..::=++=::.
          .-=++++++++++++++-
         -+++++++++++++++++++:
        :++++++=. -++=++++++++
        .++++++-  =++-....
         :=+++++=-++++==-:.
           .:-=+++++++++++++=:
                 .=++-.:++++++=
       .----====  -++-  -++++++:
        =++++++++-=++=:-+++++++
         -+++++++++++++++++++=.
           .-=++++++++++++=:.
                 .=++-.
                   ..

")
 (displayln "----- ASISTENTE PARA CÁLCULO DE IMPUESTOS -----")
 (displayln "Para calcular un impuesto del 15%, escriba (impuesto_15)")
 (displayln "Para calcular un impuesto de otro porcentaje, escriba (impuesto_x)")
 (displayln "Para volver a este menú, escriba (ayuda)")
 (displayln "-----------------------------------------------")
  )