Ecuadorian sets record in run 4,000m below surface