11 lines
199 B
Text
11 lines
199 B
Text
|
(
|
||
|
|
: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!
|