Recursief verwijderen

Ik wil in wiskundeleraar.nl een knopje maken om in een werkruimte in één keer een complete leerroute te kunnen verwijderen. Dat is een mooi voorbeeld van een recursief proces. In pseudotaal ziet dat er zo uit:

PROCEDURE Verwijderleerroute(w)
   WHERE werkruimte=w DO
      Verwijderpagina(nummer)
   END
END

PROCEDURE Verwijderpagina(n)
   WHERE root=n DO
      Verwijderpagina(nummer)
   END
   DELETE WHERE nummer=n
END

Zoiets zou het moeten zijn. Dat is dan wel heel compact, zou ik denken. Morgen nog maar 's kijken of dat klopt allemaal.:-)

Ik kan als voorbeeld wel de werkruimte 99 of 46 nemen. Ik ben benieuwd...