Evaluated set c 0; map [info proc] {x {incr c [string length [info body $x]]}}; . [expr $c/1024/1024] megabytes