4.3BSD/usr/contrib/icon/book/05/get.icn

procedure main()
   wlist := words()
   while word := get(wlist) do
      if any(&ucase,word) then write(word)
end