makeGameBuilder :: GameBuilder
makeGameBuilder = GameBuilder player1 player2 makeIdGenerator
  where
    idGen1 = makeIdGenerator
    (player1, idGen2) = createPlayer idGen1
    (player2, idGen3) = createPlayer idGen2
makeGameBuilder :: GameBuilder
makeGameBuilder = GameBuilder player1 player2 makeIdGenerator
  where
    idGen1 = makeIdGenerator
    (player1, idGen2) = createPlayer idGen1
    (player2, idGen3) = createPlayer idGen2
makeGameBuilder = GameBuilder player1 player2 makeIdGenerator
  where
    idGen1 = makeIdGenerator
    (player1, idGen2) = createPlayer idGen1
    (player2, idGen3) = createPlayer idGen2