\ Процедуры.
\ Ю. Жиловец, 12.04.2002

: PROC: ( ->bl; -- ) CREATE :NONAME DROP ;
: PROC; ( -- ) S" ;" EVAL-WORD ; IMMEDIATE