Как перенаправить stdout в файл в tcl

как я могу перенаправить вывод proc в файл в tcl, например, у меня есть proc foo, и я хотел бы перенаправить вывод foo в файл bar. Но получил такой результат

% proc foo {} { puts "hello world" }
% foo
hello world
% foo > bar
wrong # args: should be "foo"