1 2 3 4 5 6 7 8
# proc foo {str1 str2 str3} { writeln $str1 writeln $str2 writeln $str3 writeln [max $str1 $str3] return -1 }