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