I need help. My data store wont save the data. Why?

It wont save. Any ideas?

local dataStoreService = game:GetService("DataStoreService")
local dataStore = dataStoreService:GetDataStore("Leaderstats")

game.Players.PlayerAdded:Connect(function(plr)
    local leaderstats = Instance.new("Folder",plr)
    leaderstats.Name = "leaderstats"

    local level = Instance.new("IntValue", leaderstats)
    level.Name = "Level"
    level.Value = 1
    pcall(function()
        local function save(plr)
            local leaderstats = plr:WaitForChild("leaderstats")
            local level = leaderstats:WaitForChild("Level")

            pcall(function()
                dataStore:SetAsync(plr.UserId.. "_Level",level.Value)
            end)
        end

        game.Players.PlayerRemoving:Connect(function(plr)
            save(plr)
        end)

        game:BindToClose(function() -- runs when game closes/shutdowns
            for _, plr in pairs(game.Players:GetPlayers()) do
                save(plr)
            end
        end)

        game.Players.PlayerRemoving:Connect(function(plr)
            local leaderstats = plr:WaitForChild("leaderstats")
            local level = leaderstats:WaitForChild("Level")

            pcall(function()
                dataStore:SetAsync(plr.UserId.. "Level",level.Value)

            end)
        end)
    end)
end)

local dataStoreService = game:GetService("DataStoreService")
local dataStore = dataStoreService:GetDataStore("Leaderstats")

local function save(plr)
    local leaderstats = plr.leaderstats
    local level = leaderstats.Level
    pcall(function()
	dataStore:SetAsync(plr.UserId.. "_Level",level.Value)
    end)
end

game.Players.PlayerAdded:Connect(function(plr)
    local data
    local suc, err = pcall(function()
	data = dataStore:GetAsync(plr.UserId.. "_Level")
    end)
    if not suc or data == nil then
	data = 1
    end
    local leaderstats = Instance.new("Folder")
    leaderstats.Name = "leaderstats"


    local level = Instance.new("IntValue")
    level.Name = "Level"
    level.Value = data
    level.Parent = leaderstats
    leaderstats.Parent = plr
    end)
end)

game.Players.PlayerRemoving:Connect(save)

game:BindToClose(function()
    for _, plr in pairs(game.Players:GetPlayers()) do
        save(plr)
    end
end)

sorry for bad indenting this just addon to other dude