EMITS EMIT? EMITS
EMITS
* EMITS ( n char -- )

Emit _char_ _n_ times. 
 : EMITS             ( n char -- )
    SWAP 0 ?DO  DUP EMIT  LOOP DROP ;

FORTH/BASE forth_usual ordinary primitive