link random
procedure main()
   randomize()
   words := ["fish", "beagle", "tiger"]
   word := ?words
   blanks := repl("-", *word)
   misses := 0
   w := open("hangman","g")
   hangedperson := [
		     "  o  ",
		     "\\ | /",
		     " \\|/ ",
		     " / \\ ",
		     "/   \\"
		     ]
   repeat {
      every write(hangedperson[1 to misses])
      if misses = 1 then DrawCircle(w,300,50,25)
      if misses = 2 then DrawLine(w,300,75,300,150)
      if misses = 3 then DrawLine(w,300,75,250,125)
      if misses = 4 then DrawLine(w,300,75,350,125)
      if misses = 5 then {
	  DrawLine(w,300,150,250,200)
	  DrawLine(w,300,150,350,200)
          }
      if misses = 5 then
	 stop("You lose, the word was ", word)
      write(blanks)
      letter := read()
      if find(letter, word) then
	 every i := find(letter, word) do
	    blanks[i] := word[i]
      else misses +:= 1
      if not find("-", blanks) then
	 stop("You win! The word was ", word)
      }
end