procedure main()

L := ["fee fie", "huff and puff", "mirror mirror", "tick tock"]

every i := 1 to *L do
   write(i,") ",L[i])
repeat {
   writes("Choose a number from the menu above: ")
   a := read()
   if 1 <= integer(a) <= i then break
   }
write("You selected ",a," ==> ",L[a])
end