initGameLoop :: RNG -> String -> GameState
initGameLoop rng playerName =
    let (playerCoords, newDungeon) = dungeonGenerator rng in
    GameState newDungeon (newPlayer playerName playerCoords)
initGameLoop :: RNG -> String -> GameState
initGameLoop rng playerName =
    let (playerCoords, newDungeon) = dungeonGenerator rng in
    GameState newDungeon (newPlayer playerName playerCoords)
initGameLoop rng playerName =
    let (playerCoords, newDungeon) = dungeonGenerator rng in
    GameState newDungeon (newPlayer playerName playerCoords)