[ 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$