Evaluated proc longest {a b} { if {[strlen $a] > [strlen $b]} {return $a} {return $b}}