link random
procedure main()
   randomize()

   dice := [?6, ?6, ?6, ?6, ?6]
   write("The dice are: ", dice[1], dice[2], dice[3], dice[4], dice[5])

   every 1 to 2 do {
       write("Which dice values do you keep?")
       keep := read()

       every i := 1 to 5 do {
	   if not find(dice[i], keep) then dice[i] := ?6
	   else keep[find(dice[i], keep)] := ""
       }
       write("The dice are: ", dice[1], dice[2], dice[3], dice[4], dice[5])
   }

   dice := sort(dice)

   if dice[1]=dice[2]=dice[3]=dice[4]=dice[5] then
       write("Your score is ", dice[3] * 5)
   else if dice[1]=dice[2]=dice[3]=dice[4] then
       write("Your score is ", dice[3] * 4)
   else if dice[2]=dice[3]=dice[4]=dice[5] then
       write("Your score is ", dice[3] * 4)
   else if dice[1]=dice[2]=dice[3] then
       write("Your score is ", dice[3] * 3)
   else if dice[2]=dice[3]=dice[4] then
       write("Your score is ", dice[3] * 3)
   else if dice[3]=dice[4]=dice[5] then
       write("Your score is ", dice[3] * 3)
   else write("You didn't get 3 of a kind! Your score is 0")
end