Evaluated proc lnum nlist { set n 0; map $nlist {x { if { $x != {} && [abs $x] > $n} { set n [abs $x] } }}; return $n }