Q-file:tools_misc — ordinary primitive
FORTH
?FILE ( file-id -- )();p4:"Q-file";
?FILE ( file-id -- )(
)
check the file-id otherwise (fixme)