import Games


main :: IO ()
main = do
  print $ game 1 <> game 1
  print $ game 2
  print $ leq zero one
  print $ leq zero zero
  print $ leq one two
  print $ leq zero two
  print $ leq (nimber 1) zero
  print $ leq zero (nimber 1)
  print $ eq (nimber 1 <> nimber 1) zero
  print $ eq (nimber 5 <> nimber 3) $ nimber 6
  print $ eq (nimber 5 <> nimber 1) $ nimber 4
  print $ eq (game 1 <> game 4) $ game 5
  print $ eq zero (add (neg (game 10)) (game 10))
  print $ eq (nimber 5) (neg $ nimber 5)