Script removes IntValue way more than necessary?

My script removes 1 hundred value instead of 1?

game.Players.PlayerAdded:Connect(function(plr)
	if plr:WaitForChild("leaderstatsA"):WaitForChild("Water") then
	while plr do
		wait(3)
		plr.leaderstatsA.Water.Value = plr.leaderstatsA.Water.Value - 1
		
	end
	end
end)