# setup two static arrays of size of 60, you could use dynamic arrays if you wanted to
setArray $number 60
setArray $hot 60

:begin
  setVar $nextLine 1

  # read the first line of our data file
  read "lottery.txt" $line 1

# setup while/end loop to detect the file EOF
  while ($line <> EOF)
      # setup counter for parsing the line read from a file
       setVar $i 1
      # we know there are 6 numbers in the line so while $i <= 6
       while ($i <=6)
         # get the $i position word of the line
         getword $line $num $i
         # if $i = 6 we know it is the "hot ball" so store it in that array
         if ($i = 6)
            add $hot[$num] 1
         else
         # wasn't the "hot ball" so it is one of the "regular" numbers and store in that array
         add $number[$num] 1
         end
         # increment our counter for parsing the line
         add $i 1
       end
  # add 1 to our file line counter
  add $nextLine 1
  # read the new line
  read "lottery.txt" $line $nextLine
end

# reset $i to 1 so we can output our results
setVar $i 1
while ($i <= 60)
# write our results to a new file
write "loteryResults.txt" $i & "," & $number[$i] & "," & $hot[$i]
add $i 1
end
# win the lottery and send Promethius 5% (I'm not greedy)