stars.fth

" This is file stars.fth." . CR 


: STAR  ( -) '* EMIT ;

: STARS ( n -) FOR STAR NEXT ;