A small rock, paper and scissors game in haskell.