(
  :prompt =list
  (list bool)
  (list (' dup append) map prompt choose)
  ("") if
) :menu

("fee fie" "huff and puff" "mirror mirror" "tick tock")
"Enter an option" menu
"You chose: " print! puts!