Perfect Chomp player in Haskell