print("BELOW THIS LINE: ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------")

for i,v in pairs(game.Workspace:GetDescendants()) do
    if v:IsA("Sound") and v.Playing then
        warn((v.SoundId).." from "..(v:GetFullName()))
    end
end

print("ABOVE THIS LINE: ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------")