Reset TTS Level to zero

When I executed an unbalanced transaction block, I use this code to get back to zero:

static void NDPToolsResetTTS(Args _args)
{
    while (appl.ttsLevel() > 0)
    {
        info(strfmt("Level %1 aborted",appl.ttsLevel()));
        ttsAbort;
    }
}