newGame :: String -> String -> GState
newGame p1n p2n = GState (createNew p1n p2n) 1 0
newGame :: String -> String -> GState
newGame p1n p2n = GState (createNew p1n p2n) 1 0
newGame p1n p2n = GState (createNew p1n p2n) 1 0