18 lines
465 B
Plaintext
18 lines
465 B
Plaintext
[ swap dup [] = iff nip done
|
|
[ dup witheach
|
|
[ i^ 1+ echo say ") "
|
|
echo$ cr ]
|
|
over input
|
|
$->n not iff drop again
|
|
dup 1 < iff drop again
|
|
over size
|
|
over < iff drop again ]
|
|
rot drop 1 - peek ] is menu ( [ $ --> $ )
|
|
|
|
' [ $ "fee fie" $ "huff and puff"
|
|
$ "mirror mirror" $ "tick tock" ]
|
|
[] swap witheach [ do nested join ]
|
|
|
|
$ "What does a clock say? " menu
|
|
say "Your answer: " echo$
|