SPACE SP@ SPACES
SPACE
* SPACE ( -- )

print a single space to stdout, see >SPACES 
 simulate:    : SPACE  BL EMIT ;

core ordinary primitive