allowed
*Allow - глобальная переменная, содержащая разрешенные шаблоны доступа. Если ее значение не равно NIL, она должна содержать список, где CAR — это дерево idx разрешенных элементов, а CDR — список префиксных строк.
: *Allow
-> (("!start" ("!psh") "!sto...
