to rps
 (local "player.choice "computer.choice "score)
 make "score 0
 print [Rock, paper or scissors?]
 make "player.choice readword
 make "computer.choice pick [rock paper scissors]
 print sentence [The computer chooses] word :computer.choice ".
 if and (equalp :player.choice "rock) (equalp :computer.choice "scissors)~
    [print [Rock crushes scissors!]  make "score :score+1]
end


to maze
 print [You are lost in a maze.  Go left or right?]
 if equalp readword "left [maze]
 print [You fell in a pit.  Would you like to play again?]
 if equalp readword "yes [maze]
 print [Goodbye!]
end

to maze2
 print [You are lost in a maze.  Go left or right?]
 ifelse equalp readword "left [maze] [~
            print [You fell in a pit.  Would you like to play again?]~
            ifelse equalp readword "yes [maze] print [Goodbye!]]
end

to factorial :n
 if lessp :n 1 [output 1]
 output product :n factorial (:n - 1)
end