#|
Author:      [Your Name]
E-mail:      [Your PSU Email]@psu.edu
Course:      CMPSC 460
Assignment:  Lisp Programming Project
Due date:    4/6/2026
File:        FoodOrderGenerator.LISP
Purpose:     This program uses random-number generation to create food orders
             from lists of different categories of food items. It also allows the
             user to add food items to or remove food items from the lists
             initially provided. The program loops until the user decides that
             s/he is done creating food orders.
IDE/Compiler:
             LispWorks 8.0.1 Personal Edition
Operating system:
             MS Windows 10
References:  Web sites listed on our course Programming Language Resources page
             Lisp interactive sessions and demo functions posted on our course
             Demo Programs page
AI Tool(s):  Claude (Anthropic) was used to generate this source code.
             AI-generated code specific to this assignment - all functions below.
|#
 
; -------------------------------------------------------------------
; Function to display the main menu of options
(defun display-main-menu ()
  (format t "~%MENU OPTIONS:~%")
  (format t "1) Generate a food order~%")
  (format t "2) Add a food item~%")
  (format t "3) Remove a food item~%")
  (format t "4) Quit~%")
)
 
; -------------------------------------------------------------------
; Function to display the submenu of food item categories
(defun display-sub-menu ()
  (format t "~%FOOD ITEM TYPES:~%")
  (format t "1) Sandwich~%")
  (format t "2) Side~%")
  (format t "3) Beverage~%")
  (format t "4) Dessert~%")
)
 
; -------------------------------------------------------------------
; Function to display all four food item lists
(defun display-all-lists (sandwiches sides beverages desserts)
  (format t "~%Current food items lists:~%")
  (format t "Sandwiches: ~a~%" sandwiches)
  (format t "Sides      : ~a~%" sides)
  (format t "Beverages  : ~a~%" beverages)
  (format t "Desserts   : ~a~%" desserts)
)
 
; -------------------------------------------------------------------
; Function to obtain a validated menu choice in range [1, 4]
(defun get-menu-choice ()
  (format t "Please enter your choice: ")
  (finish-output)
  (let ((choice (read)))
    (if (and (integerp choice) (>= choice 1) (<= choice 4))
        choice
        (progn
          (format t "Invalid choice! Please re-enter.~%")
          (get-menu-choice)
        )
    )
  )
)
 
; -------------------------------------------------------------------
; Function to pick a random element from a list
(defun random-element (lst)
  (nth (random (length lst)) lst)
)
 
; -------------------------------------------------------------------
; Function to generate a random food order from each list
; Selects one item at random from each list and builds the order
(defun generate-food-order (sandwiches sides beverages desserts)
  (let* ((sandwich  (random-element sandwiches))
         (side      (random-element sides))
         (beverage  (random-element beverages))
         (dessert   (random-element desserts))
         (order     (append (list sandwich) (list side) (list beverage) (list dessert))))
    (format t "~%Random food order:~%")
    (format t " ~a, ~a, ~a, ~a~%" sandwich side beverage dessert)
    order
  )
)
 
; -------------------------------------------------------------------
; Function to add a food item to a list if it is not already present
; Returns the (possibly updated) list
(defun add-food-item (lst item)
  (if (member item lst)
      lst
      (append lst (list item))
  )
)
 
; -------------------------------------------------------------------
; Function to remove a food item from a list
; Does nothing (no error) if the list is empty or the item is not found
; Returns the (possibly updated) list
(defun remove-food-item (lst item)
  (if (or (null lst) (not (member item lst)))
      lst
      (remove item lst)
  )
)
 
; -------------------------------------------------------------------
; Function to handle the "add a food item" workflow
; Displays lists, shows submenu, reads category and new item, returns updated lists
(defun handle-add (sandwiches sides beverages desserts)
  (display-all-lists sandwiches sides beverages desserts)
  (display-sub-menu)
  (let ((cat (get-menu-choice)))
    (format t "Please enter your food item: ")
    (finish-output)
    (let ((new-item (read)))
      (cond
        ((= cat 1)
         (let ((updated (add-food-item sandwiches new-item)))
           (format t "Sandwiches: ~a~%" updated)
           (list updated sides beverages desserts)
         ))
        ((= cat 2)
         (let ((updated (add-food-item sides new-item)))
           (format t "Sides      : ~a~%" updated)
           (list sandwiches updated beverages desserts)
         ))
        ((= cat 3)
         (let ((updated (add-food-item beverages new-item)))
           (format t "Beverages  : ~a~%" updated)
           (list sandwiches sides updated desserts)
         ))
        ((= cat 4)
         (let ((updated (add-food-item desserts new-item)))
           (format t "Desserts   : ~a~%" updated)
           (list sandwiches sides beverages updated)
         ))
      )
    )
  )
)
 
; -------------------------------------------------------------------
; Function to handle the "remove a food item" workflow
; Displays lists, shows submenu, reads category and item, returns updated lists
(defun handle-remove (sandwiches sides beverages desserts)
  (display-all-lists sandwiches sides beverages desserts)
  (display-sub-menu)
  (let ((cat (get-menu-choice)))
    (format t "Please enter your food item: ")
    (finish-output)
    (let ((del-item (read)))
      (cond
        ((= cat 1)
         (let ((updated (remove-food-item sandwiches del-item)))
           (format t "Sandwiches: ~a~%" updated)
           (list updated sides beverages desserts)
         ))
        ((= cat 2)
         (let ((updated (remove-food-item sides del-item)))
           (format t "Sides      : ~a~%" updated)
           (list sandwiches updated beverages desserts)
         ))
        ((= cat 3)
         (let ((updated (remove-food-item beverages del-item)))
           (format t "Beverages  : ~a~%" updated)
           (list sandwiches sides updated desserts)
         ))
        ((= cat 4)
         (let ((updated (remove-food-item desserts del-item)))
           (format t "Desserts   : ~a~%" updated)
           (list sandwiches sides beverages updated)
         ))
      )
    )
  )
)
 
; -------------------------------------------------------------------
; Helper function that performs one iteration of the main loop
; Returns NIL when the user chooses to quit, otherwise recurses with updated lists
(defun main-loop (sandwiches sides beverages desserts)
  (display-main-menu)
  (let ((choice (get-menu-choice)))
    (cond
      ; Option 1: Generate a random food order
      ((= choice 1)
       (generate-food-order sandwiches sides beverages desserts)
       (main-loop sandwiches sides beverages desserts)
      )
      ; Option 2: Add a food item
      ((= choice 2)
       (let ((updated-lists (handle-add sandwiches sides beverages desserts)))
         (main-loop (first updated-lists)
                    (second updated-lists)
                    (third updated-lists)
                    (fourth updated-lists))
       )
      )
      ; Option 3: Remove a food item
      ((= choice 3)
       (let ((updated-lists (handle-remove sandwiches sides beverages desserts)))
         (main-loop (first updated-lists)
                    (second updated-lists)
                    (third updated-lists)
                    (fourth updated-lists))
       )
      )
      ; Option 4: Quit
      ((= choice 4)
       (format t "~%\"Thank you for using my Food Order Generator!\"~%")
      )
    )
  )
)
 
; -------------------------------------------------------------------
; Main "driver" function - initializes the four food lists and starts the loop
(defun loop-program ()
  (let ((sandwiches '(blt tuna-salad grilled-cheese hamburger cheesesteak))
        (sides       '(tossed-salad pasta-salad fries onion-rings chips))
        (beverages   '(lemonade iced-tea water soda coffee))
        (desserts    '(ice-cream cake pie brownie cookies)))
    (main-loop sandwiches sides beverages desserts)
  )
)

I3wKQXV0aG9yOiAgICAgIFtZb3VyIE5hbWVdCkUtbWFpbDogICAgICBbWW91ciBQU1UgRW1haWxdQHBzdS5lZHUKQ291cnNlOiAgICAgIENNUFNDIDQ2MApBc3NpZ25tZW50OiAgTGlzcCBQcm9ncmFtbWluZyBQcm9qZWN0CkR1ZSBkYXRlOiAgICA0LzYvMjAyNgpGaWxlOiAgICAgICAgRm9vZE9yZGVyR2VuZXJhdG9yLkxJU1AKUHVycG9zZTogICAgIFRoaXMgcHJvZ3JhbSB1c2VzIHJhbmRvbS1udW1iZXIgZ2VuZXJhdGlvbiB0byBjcmVhdGUgZm9vZCBvcmRlcnMKICAgICAgICAgICAgIGZyb20gbGlzdHMgb2YgZGlmZmVyZW50IGNhdGVnb3JpZXMgb2YgZm9vZCBpdGVtcy4gSXQgYWxzbyBhbGxvd3MgdGhlCiAgICAgICAgICAgICB1c2VyIHRvIGFkZCBmb29kIGl0ZW1zIHRvIG9yIHJlbW92ZSBmb29kIGl0ZW1zIGZyb20gdGhlIGxpc3RzCiAgICAgICAgICAgICBpbml0aWFsbHkgcHJvdmlkZWQuIFRoZSBwcm9ncmFtIGxvb3BzIHVudGlsIHRoZSB1c2VyIGRlY2lkZXMgdGhhdAogICAgICAgICAgICAgcy9oZSBpcyBkb25lIGNyZWF0aW5nIGZvb2Qgb3JkZXJzLgpJREUvQ29tcGlsZXI6CiAgICAgICAgICAgICBMaXNwV29ya3MgOC4wLjEgUGVyc29uYWwgRWRpdGlvbgpPcGVyYXRpbmcgc3lzdGVtOgogICAgICAgICAgICAgTVMgV2luZG93cyAxMApSZWZlcmVuY2VzOiAgV2ViIHNpdGVzIGxpc3RlZCBvbiBvdXIgY291cnNlIFByb2dyYW1taW5nIExhbmd1YWdlIFJlc291cmNlcyBwYWdlCiAgICAgICAgICAgICBMaXNwIGludGVyYWN0aXZlIHNlc3Npb25zIGFuZCBkZW1vIGZ1bmN0aW9ucyBwb3N0ZWQgb24gb3VyIGNvdXJzZQogICAgICAgICAgICAgRGVtbyBQcm9ncmFtcyBwYWdlCkFJIFRvb2wocyk6ICBDbGF1ZGUgKEFudGhyb3BpYykgd2FzIHVzZWQgdG8gZ2VuZXJhdGUgdGhpcyBzb3VyY2UgY29kZS4KICAgICAgICAgICAgIEFJLWdlbmVyYXRlZCBjb2RlIHNwZWNpZmljIHRvIHRoaXMgYXNzaWdubWVudCAtIGFsbCBmdW5jdGlvbnMgYmVsb3cuCnwjCgo7IC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KOyBGdW5jdGlvbiB0byBkaXNwbGF5IHRoZSBtYWluIG1lbnUgb2Ygb3B0aW9ucwooZGVmdW4gZGlzcGxheS1tYWluLW1lbnUgKCkKICAoZm9ybWF0IHQgIn4lTUVOVSBPUFRJT05TOn4lIikKICAoZm9ybWF0IHQgIjEpIEdlbmVyYXRlIGEgZm9vZCBvcmRlcn4lIikKICAoZm9ybWF0IHQgIjIpIEFkZCBhIGZvb2QgaXRlbX4lIikKICAoZm9ybWF0IHQgIjMpIFJlbW92ZSBhIGZvb2QgaXRlbX4lIikKICAoZm9ybWF0IHQgIjQpIFF1aXR+JSIpCikKCjsgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQo7IEZ1bmN0aW9uIHRvIGRpc3BsYXkgdGhlIHN1Ym1lbnUgb2YgZm9vZCBpdGVtIGNhdGVnb3JpZXMKKGRlZnVuIGRpc3BsYXktc3ViLW1lbnUgKCkKICAoZm9ybWF0IHQgIn4lRk9PRCBJVEVNIFRZUEVTOn4lIikKICAoZm9ybWF0IHQgIjEpIFNhbmR3aWNofiUiKQogIChmb3JtYXQgdCAiMikgU2lkZX4lIikKICAoZm9ybWF0IHQgIjMpIEJldmVyYWdlfiUiKQogIChmb3JtYXQgdCAiNCkgRGVzc2VydH4lIikKKQoKOyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCjsgRnVuY3Rpb24gdG8gZGlzcGxheSBhbGwgZm91ciBmb29kIGl0ZW0gbGlzdHMKKGRlZnVuIGRpc3BsYXktYWxsLWxpc3RzIChzYW5kd2ljaGVzIHNpZGVzIGJldmVyYWdlcyBkZXNzZXJ0cykKICAoZm9ybWF0IHQgIn4lQ3VycmVudCBmb29kIGl0ZW1zIGxpc3RzOn4lIikKICAoZm9ybWF0IHQgIlNhbmR3aWNoZXM6IH5hfiUiIHNhbmR3aWNoZXMpCiAgKGZvcm1hdCB0ICJTaWRlcyAgICAgIDogfmF+JSIgc2lkZXMpCiAgKGZvcm1hdCB0ICJCZXZlcmFnZXMgIDogfmF+JSIgYmV2ZXJhZ2VzKQogIChmb3JtYXQgdCAiRGVzc2VydHMgICA6IH5hfiUiIGRlc3NlcnRzKQopCgo7IC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KOyBGdW5jdGlvbiB0byBvYnRhaW4gYSB2YWxpZGF0ZWQgbWVudSBjaG9pY2UgaW4gcmFuZ2UgWzEsIDRdCihkZWZ1biBnZXQtbWVudS1jaG9pY2UgKCkKICAoZm9ybWF0IHQgIlBsZWFzZSBlbnRlciB5b3VyIGNob2ljZTogIikKICAoZmluaXNoLW91dHB1dCkKICAobGV0ICgoY2hvaWNlIChyZWFkKSkpCiAgICAoaWYgKGFuZCAoaW50ZWdlcnAgY2hvaWNlKSAoPj0gY2hvaWNlIDEpICg8PSBjaG9pY2UgNCkpCiAgICAgICAgY2hvaWNlCiAgICAgICAgKHByb2duCiAgICAgICAgICAoZm9ybWF0IHQgIkludmFsaWQgY2hvaWNlISBQbGVhc2UgcmUtZW50ZXIufiUiKQogICAgICAgICAgKGdldC1tZW51LWNob2ljZSkKICAgICAgICApCiAgICApCiAgKQopCgo7IC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KOyBGdW5jdGlvbiB0byBwaWNrIGEgcmFuZG9tIGVsZW1lbnQgZnJvbSBhIGxpc3QKKGRlZnVuIHJhbmRvbS1lbGVtZW50IChsc3QpCiAgKG50aCAocmFuZG9tIChsZW5ndGggbHN0KSkgbHN0KQopCgo7IC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KOyBGdW5jdGlvbiB0byBnZW5lcmF0ZSBhIHJhbmRvbSBmb29kIG9yZGVyIGZyb20gZWFjaCBsaXN0CjsgU2VsZWN0cyBvbmUgaXRlbSBhdCByYW5kb20gZnJvbSBlYWNoIGxpc3QgYW5kIGJ1aWxkcyB0aGUgb3JkZXIKKGRlZnVuIGdlbmVyYXRlLWZvb2Qtb3JkZXIgKHNhbmR3aWNoZXMgc2lkZXMgYmV2ZXJhZ2VzIGRlc3NlcnRzKQogIChsZXQqICgoc2FuZHdpY2ggIChyYW5kb20tZWxlbWVudCBzYW5kd2ljaGVzKSkKICAgICAgICAgKHNpZGUgICAgICAocmFuZG9tLWVsZW1lbnQgc2lkZXMpKQogICAgICAgICAoYmV2ZXJhZ2UgIChyYW5kb20tZWxlbWVudCBiZXZlcmFnZXMpKQogICAgICAgICAoZGVzc2VydCAgIChyYW5kb20tZWxlbWVudCBkZXNzZXJ0cykpCiAgICAgICAgIChvcmRlciAgICAgKGFwcGVuZCAobGlzdCBzYW5kd2ljaCkgKGxpc3Qgc2lkZSkgKGxpc3QgYmV2ZXJhZ2UpIChsaXN0IGRlc3NlcnQpKSkpCiAgICAoZm9ybWF0IHQgIn4lUmFuZG9tIGZvb2Qgb3JkZXI6fiUiKQogICAgKGZvcm1hdCB0ICIgfmEsIH5hLCB+YSwgfmF+JSIgc2FuZHdpY2ggc2lkZSBiZXZlcmFnZSBkZXNzZXJ0KQogICAgb3JkZXIKICApCikKCjsgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQo7IEZ1bmN0aW9uIHRvIGFkZCBhIGZvb2QgaXRlbSB0byBhIGxpc3QgaWYgaXQgaXMgbm90IGFscmVhZHkgcHJlc2VudAo7IFJldHVybnMgdGhlIChwb3NzaWJseSB1cGRhdGVkKSBsaXN0CihkZWZ1biBhZGQtZm9vZC1pdGVtIChsc3QgaXRlbSkKICAoaWYgKG1lbWJlciBpdGVtIGxzdCkKICAgICAgbHN0CiAgICAgIChhcHBlbmQgbHN0IChsaXN0IGl0ZW0pKQogICkKKQoKOyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCjsgRnVuY3Rpb24gdG8gcmVtb3ZlIGEgZm9vZCBpdGVtIGZyb20gYSBsaXN0CjsgRG9lcyBub3RoaW5nIChubyBlcnJvcikgaWYgdGhlIGxpc3QgaXMgZW1wdHkgb3IgdGhlIGl0ZW0gaXMgbm90IGZvdW5kCjsgUmV0dXJucyB0aGUgKHBvc3NpYmx5IHVwZGF0ZWQpIGxpc3QKKGRlZnVuIHJlbW92ZS1mb29kLWl0ZW0gKGxzdCBpdGVtKQogIChpZiAob3IgKG51bGwgbHN0KSAobm90IChtZW1iZXIgaXRlbSBsc3QpKSkKICAgICAgbHN0CiAgICAgIChyZW1vdmUgaXRlbSBsc3QpCiAgKQopCgo7IC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KOyBGdW5jdGlvbiB0byBoYW5kbGUgdGhlICJhZGQgYSBmb29kIGl0ZW0iIHdvcmtmbG93CjsgRGlzcGxheXMgbGlzdHMsIHNob3dzIHN1Ym1lbnUsIHJlYWRzIGNhdGVnb3J5IGFuZCBuZXcgaXRlbSwgcmV0dXJucyB1cGRhdGVkIGxpc3RzCihkZWZ1biBoYW5kbGUtYWRkIChzYW5kd2ljaGVzIHNpZGVzIGJldmVyYWdlcyBkZXNzZXJ0cykKICAoZGlzcGxheS1hbGwtbGlzdHMgc2FuZHdpY2hlcyBzaWRlcyBiZXZlcmFnZXMgZGVzc2VydHMpCiAgKGRpc3BsYXktc3ViLW1lbnUpCiAgKGxldCAoKGNhdCAoZ2V0LW1lbnUtY2hvaWNlKSkpCiAgICAoZm9ybWF0IHQgIlBsZWFzZSBlbnRlciB5b3VyIGZvb2QgaXRlbTogIikKICAgIChmaW5pc2gtb3V0cHV0KQogICAgKGxldCAoKG5ldy1pdGVtIChyZWFkKSkpCiAgICAgIChjb25kCiAgICAgICAgKCg9IGNhdCAxKQogICAgICAgICAobGV0ICgodXBkYXRlZCAoYWRkLWZvb2QtaXRlbSBzYW5kd2ljaGVzIG5ldy1pdGVtKSkpCiAgICAgICAgICAgKGZvcm1hdCB0ICJTYW5kd2ljaGVzOiB+YX4lIiB1cGRhdGVkKQogICAgICAgICAgIChsaXN0IHVwZGF0ZWQgc2lkZXMgYmV2ZXJhZ2VzIGRlc3NlcnRzKQogICAgICAgICApKQogICAgICAgICgoPSBjYXQgMikKICAgICAgICAgKGxldCAoKHVwZGF0ZWQgKGFkZC1mb29kLWl0ZW0gc2lkZXMgbmV3LWl0ZW0pKSkKICAgICAgICAgICAoZm9ybWF0IHQgIlNpZGVzICAgICAgOiB+YX4lIiB1cGRhdGVkKQogICAgICAgICAgIChsaXN0IHNhbmR3aWNoZXMgdXBkYXRlZCBiZXZlcmFnZXMgZGVzc2VydHMpCiAgICAgICAgICkpCiAgICAgICAgKCg9IGNhdCAzKQogICAgICAgICAobGV0ICgodXBkYXRlZCAoYWRkLWZvb2QtaXRlbSBiZXZlcmFnZXMgbmV3LWl0ZW0pKSkKICAgICAgICAgICAoZm9ybWF0IHQgIkJldmVyYWdlcyAgOiB+YX4lIiB1cGRhdGVkKQogICAgICAgICAgIChsaXN0IHNhbmR3aWNoZXMgc2lkZXMgdXBkYXRlZCBkZXNzZXJ0cykKICAgICAgICAgKSkKICAgICAgICAoKD0gY2F0IDQpCiAgICAgICAgIChsZXQgKCh1cGRhdGVkIChhZGQtZm9vZC1pdGVtIGRlc3NlcnRzIG5ldy1pdGVtKSkpCiAgICAgICAgICAgKGZvcm1hdCB0ICJEZXNzZXJ0cyAgIDogfmF+JSIgdXBkYXRlZCkKICAgICAgICAgICAobGlzdCBzYW5kd2ljaGVzIHNpZGVzIGJldmVyYWdlcyB1cGRhdGVkKQogICAgICAgICApKQogICAgICApCiAgICApCiAgKQopCgo7IC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KOyBGdW5jdGlvbiB0byBoYW5kbGUgdGhlICJyZW1vdmUgYSBmb29kIGl0ZW0iIHdvcmtmbG93CjsgRGlzcGxheXMgbGlzdHMsIHNob3dzIHN1Ym1lbnUsIHJlYWRzIGNhdGVnb3J5IGFuZCBpdGVtLCByZXR1cm5zIHVwZGF0ZWQgbGlzdHMKKGRlZnVuIGhhbmRsZS1yZW1vdmUgKHNhbmR3aWNoZXMgc2lkZXMgYmV2ZXJhZ2VzIGRlc3NlcnRzKQogIChkaXNwbGF5LWFsbC1saXN0cyBzYW5kd2ljaGVzIHNpZGVzIGJldmVyYWdlcyBkZXNzZXJ0cykKICAoZGlzcGxheS1zdWItbWVudSkKICAobGV0ICgoY2F0IChnZXQtbWVudS1jaG9pY2UpKSkKICAgIChmb3JtYXQgdCAiUGxlYXNlIGVudGVyIHlvdXIgZm9vZCBpdGVtOiAiKQogICAgKGZpbmlzaC1vdXRwdXQpCiAgICAobGV0ICgoZGVsLWl0ZW0gKHJlYWQpKSkKICAgICAgKGNvbmQKICAgICAgICAoKD0gY2F0IDEpCiAgICAgICAgIChsZXQgKCh1cGRhdGVkIChyZW1vdmUtZm9vZC1pdGVtIHNhbmR3aWNoZXMgZGVsLWl0ZW0pKSkKICAgICAgICAgICAoZm9ybWF0IHQgIlNhbmR3aWNoZXM6IH5hfiUiIHVwZGF0ZWQpCiAgICAgICAgICAgKGxpc3QgdXBkYXRlZCBzaWRlcyBiZXZlcmFnZXMgZGVzc2VydHMpCiAgICAgICAgICkpCiAgICAgICAgKCg9IGNhdCAyKQogICAgICAgICAobGV0ICgodXBkYXRlZCAocmVtb3ZlLWZvb2QtaXRlbSBzaWRlcyBkZWwtaXRlbSkpKQogICAgICAgICAgIChmb3JtYXQgdCAiU2lkZXMgICAgICA6IH5hfiUiIHVwZGF0ZWQpCiAgICAgICAgICAgKGxpc3Qgc2FuZHdpY2hlcyB1cGRhdGVkIGJldmVyYWdlcyBkZXNzZXJ0cykKICAgICAgICAgKSkKICAgICAgICAoKD0gY2F0IDMpCiAgICAgICAgIChsZXQgKCh1cGRhdGVkIChyZW1vdmUtZm9vZC1pdGVtIGJldmVyYWdlcyBkZWwtaXRlbSkpKQogICAgICAgICAgIChmb3JtYXQgdCAiQmV2ZXJhZ2VzICA6IH5hfiUiIHVwZGF0ZWQpCiAgICAgICAgICAgKGxpc3Qgc2FuZHdpY2hlcyBzaWRlcyB1cGRhdGVkIGRlc3NlcnRzKQogICAgICAgICApKQogICAgICAgICgoPSBjYXQgNCkKICAgICAgICAgKGxldCAoKHVwZGF0ZWQgKHJlbW92ZS1mb29kLWl0ZW0gZGVzc2VydHMgZGVsLWl0ZW0pKSkKICAgICAgICAgICAoZm9ybWF0IHQgIkRlc3NlcnRzICAgOiB+YX4lIiB1cGRhdGVkKQogICAgICAgICAgIChsaXN0IHNhbmR3aWNoZXMgc2lkZXMgYmV2ZXJhZ2VzIHVwZGF0ZWQpCiAgICAgICAgICkpCiAgICAgICkKICAgICkKICApCikKCjsgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQo7IEhlbHBlciBmdW5jdGlvbiB0aGF0IHBlcmZvcm1zIG9uZSBpdGVyYXRpb24gb2YgdGhlIG1haW4gbG9vcAo7IFJldHVybnMgTklMIHdoZW4gdGhlIHVzZXIgY2hvb3NlcyB0byBxdWl0LCBvdGhlcndpc2UgcmVjdXJzZXMgd2l0aCB1cGRhdGVkIGxpc3RzCihkZWZ1biBtYWluLWxvb3AgKHNhbmR3aWNoZXMgc2lkZXMgYmV2ZXJhZ2VzIGRlc3NlcnRzKQogIChkaXNwbGF5LW1haW4tbWVudSkKICAobGV0ICgoY2hvaWNlIChnZXQtbWVudS1jaG9pY2UpKSkKICAgIChjb25kCiAgICAgIDsgT3B0aW9uIDE6IEdlbmVyYXRlIGEgcmFuZG9tIGZvb2Qgb3JkZXIKICAgICAgKCg9IGNob2ljZSAxKQogICAgICAgKGdlbmVyYXRlLWZvb2Qtb3JkZXIgc2FuZHdpY2hlcyBzaWRlcyBiZXZlcmFnZXMgZGVzc2VydHMpCiAgICAgICAobWFpbi1sb29wIHNhbmR3aWNoZXMgc2lkZXMgYmV2ZXJhZ2VzIGRlc3NlcnRzKQogICAgICApCiAgICAgIDsgT3B0aW9uIDI6IEFkZCBhIGZvb2QgaXRlbQogICAgICAoKD0gY2hvaWNlIDIpCiAgICAgICAobGV0ICgodXBkYXRlZC1saXN0cyAoaGFuZGxlLWFkZCBzYW5kd2ljaGVzIHNpZGVzIGJldmVyYWdlcyBkZXNzZXJ0cykpKQogICAgICAgICAobWFpbi1sb29wIChmaXJzdCB1cGRhdGVkLWxpc3RzKQogICAgICAgICAgICAgICAgICAgIChzZWNvbmQgdXBkYXRlZC1saXN0cykKICAgICAgICAgICAgICAgICAgICAodGhpcmQgdXBkYXRlZC1saXN0cykKICAgICAgICAgICAgICAgICAgICAoZm91cnRoIHVwZGF0ZWQtbGlzdHMpKQogICAgICAgKQogICAgICApCiAgICAgIDsgT3B0aW9uIDM6IFJlbW92ZSBhIGZvb2QgaXRlbQogICAgICAoKD0gY2hvaWNlIDMpCiAgICAgICAobGV0ICgodXBkYXRlZC1saXN0cyAoaGFuZGxlLXJlbW92ZSBzYW5kd2ljaGVzIHNpZGVzIGJldmVyYWdlcyBkZXNzZXJ0cykpKQogICAgICAgICAobWFpbi1sb29wIChmaXJzdCB1cGRhdGVkLWxpc3RzKQogICAgICAgICAgICAgICAgICAgIChzZWNvbmQgdXBkYXRlZC1saXN0cykKICAgICAgICAgICAgICAgICAgICAodGhpcmQgdXBkYXRlZC1saXN0cykKICAgICAgICAgICAgICAgICAgICAoZm91cnRoIHVwZGF0ZWQtbGlzdHMpKQogICAgICAgKQogICAgICApCiAgICAgIDsgT3B0aW9uIDQ6IFF1aXQKICAgICAgKCg9IGNob2ljZSA0KQogICAgICAgKGZvcm1hdCB0ICJ+JVwiVGhhbmsgeW91IGZvciB1c2luZyBteSBGb29kIE9yZGVyIEdlbmVyYXRvciFcIn4lIikKICAgICAgKQogICAgKQogICkKKQoKOyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCjsgTWFpbiAiZHJpdmVyIiBmdW5jdGlvbiAtIGluaXRpYWxpemVzIHRoZSBmb3VyIGZvb2QgbGlzdHMgYW5kIHN0YXJ0cyB0aGUgbG9vcAooZGVmdW4gbG9vcC1wcm9ncmFtICgpCiAgKGxldCAoKHNhbmR3aWNoZXMgJyhibHQgdHVuYS1zYWxhZCBncmlsbGVkLWNoZWVzZSBoYW1idXJnZXIgY2hlZXNlc3RlYWspKQogICAgICAgIChzaWRlcyAgICAgICAnKHRvc3NlZC1zYWxhZCBwYXN0YS1zYWxhZCBmcmllcyBvbmlvbi1yaW5ncyBjaGlwcykpCiAgICAgICAgKGJldmVyYWdlcyAgICcobGVtb25hZGUgaWNlZC10ZWEgd2F0ZXIgc29kYSBjb2ZmZWUpKQogICAgICAgIChkZXNzZXJ0cyAgICAnKGljZS1jcmVhbSBjYWtlIHBpZSBicm93bmllIGNvb2tpZXMpKSkKICAgIChtYWluLWxvb3Agc2FuZHdpY2hlcyBzaWRlcyBiZXZlcmFnZXMgZGVzc2VydHMpCiAgKQop