удалить подсписок из списка в tcl

Я хочу удалить подсписок из списка в Tcl. Я знаю, как это сделать для основного списка с помощью lreplace , но я не знаю, как это сделать для подсписка. Например:

set a { 1 2  { {3 4} { 4 } } }

Теперь я хочу удалить {4} из внутреннего списка {{3 4} {4}} . Окончательный список должен быть:

a { 1 2  { {3 4} } }

Пожалуйста, предложите, как расставить его точки.