Posted to tcl by Bradipo at Fri Sep 23 21:01:11 GMT 2016view pretty

% proc foo {x y x} {
  expr {$x + $y}
}
% foo 3 4 7
7
% info args foo
x y x
% info body foo

  expr {$x + $y}