to select :prompt [:options]
  foreach :options [(print # ?)]
  forever [
    type :prompt type "| |
    make "n readword
    if (and [number? :n] [:n >= 1] [:n <= count :options]) [output item :n :options]
    print sentence [Must enter a number between 1 and] count :options
  ]
end

print equal? [huff and puff] (select
  [Which is from the three pigs?]
  [fee fie] [huff and puff] [mirror mirror] [tick tock])