adding rock paper scissors haskell