\ C - some standard libC feature imports
\c #include <time.h>

c-function	c-time		time		a -- n
c-function	c-srand		srand		n -- void
c-function	c-rand		rand		-- n

: init-rand
    0 c-time c-srand
;

: rand \ n -- n
    c-rand swap mod
;