\c #include <stdio.h>
\c #include <stdlib.h>
\c #include <time.h>

\c void initrandom(void) { srand(time(NULL)); }
\c int getrandomnumber(void) { return rand(); }

c-function initrandom initrandom -- void
c-function getrandomnumber getrandomnumber -- n 

\ initializes seed
: initrandom ( -- )
	initrandom
	;

\ returns a random number
: get-random-number ( -- n )
	getrandomnumber
	;