(defvar color)
(defvar grapes)
(defvar country)
(defvar food)


(format t "~% Please insert wine color (R/W): ")
(setq color (read))

(format t "~% Please select grapes type:
 1.Merlot
 2.Savignon
 3.Chardonnay
 Insert (number): ")
(setq grapes (read))

(format t "~% Please select country of origin:
 1.USA
 2.Italy
 3.France
 Insert (number): ")
(setq country (read))

(format t "~% Please select food pairing:
 1.Fish
 2.Veal
 3.Poultry
 Insert (number): ")
(setq food (read))

(case color grapes; switch case
(R 1 (format t "~% CHEST & BICEPS"))
(W 2 (format t "~% BACK"))
(R 3 (format t "~% CARDIO"))
(W 1 (format t "~% REST"))
(R 2 (format t "~% SHOULDERS & TRICEPS"))
(W 3 (format t "~% LEGS"))
(R 1 (format t "~% REST")))