<% set width [expr 100 - [expr $responses(tree_level) - 1] * 1] %>