$CWD
* $CWD ( -- str-ptr str-len )

calls system's getcwd

shell ordinary primitive