Dim $letter = 'i'
Dim $Glasnie[6]=["a","e","i","o","u","y"]
for $x = 0 to 5
   if $Glasnie[$x] = $letter Then
      ConsoleWrite('BINGO')
   Else
      ConsoleWrite('miss')
   EndIf
Next