pwd:shell — ordinary primitive
EXTENSIONS
PWD ( -- )();p4:"pwd";
PWD ( -- )(
)
calls system's getcwd and prints it to the screen
: PWD $CWD TYPE ;