* PWD ( -- ) calls system's getcwd and prints it to the screen : PWD $CWD TYPE ;
PWD
( -- )
getcwd
: PWD $CWD TYPE ;
shell ordinary primitive