createPlayer :: IdGenerator -> (Player, IdGenerator)
createPlayer idGen1 = (makePlayer pId hero, idGen3)
  where
    (hId, _, idGen2) = create idGen1 "hero"
    hero = makeHero hId "hero" 30 0
    (pId, _, idGen3) = create idGen2 "player"
createPlayer :: IdGenerator -> (Player, IdGenerator)
createPlayer idGen1 = (makePlayer pId hero, idGen3)
  where
    (hId, _, idGen2) = create idGen1 "hero"
    hero = makeHero hId "hero" 30 0
    (pId, _, idGen3) = create idGen2 "player"
createPlayer idGen1 = (makePlayer pId hero, idGen3)
  where
    (hId, _, idGen2) = create idGen1 "hero"
    hero = makeHero hId "hero" 30 0
    (pId, _, idGen3) = create idGen2 "player"