Direct_Url /listing2.html listing2 proc listing2 {args} { puts stderr $args set html "" append html "" append html [html::tableFromArray ::env "border=1" *] append html "" return $html }