Написание процедур в TCL

Я новичок в TCL. Просто я хочу знать, как писать процедуры TCL без аргументов, как их вызывать и как их выполнять.