Demented prime number generator

MODDEC ptest
	VAL start 1 2
	VAL current 0 0
	VAL prime 0 0
	VAL hold 0 0
	VAL nprime 0 0
	INC inc
	SPLIT insplit
	SPLIT startsplit
	SPLIT countsplit
	SPLIT countmerge
	SPLIT modmerge
	SPLIT modmerge2
	insplit_in in
	insplit_1 start_ev
	insplit_2 greater_b
	insplit_3 prime_mod
	insplit_4 nprime_mod
	insplit_5 hold_mod
	insplit_6 modmerge2_1
	startsplit_in start_out
	startsplit_1 countmerge_1
	startsplit_2 modmerge_1
	countsplit_in current_out
	countsplit_1 inc_in
	countsplit_2 modmerge_2
	countsplit_3 hold_ev
	hold_out modmerge2_2
	modmerge2_in modulo_a
	countmerge_in current_mod
	inc_out greater_a
	modmerge_in modulo_b
	REM modulo 0 1 0 0 0 0
	CMP greater 1 1 0 0 0
	modulo_out zero_a
	greater_true prime_ev
	greater_false countmerge_2
	prime_out t
	nprime_out f
	CMP zero 0 1 0 1 0
	zero_true nprime_ev
	zero_false current_ev


MODDEC root

EP main _main
SPLIT merger
main_out start_ev
VAL start 1 2
start_out merger_1
INC inc
inc_out test_in
inc_in merger_in

MODREF PTEST test


test_t printn_in
test_f merger_3

MODULE printn
	SPLIT splitter
	splitter_in in
	CALLC number _dem_putn
	number_in splitter_2
	VAL hold 0 0
	hold_mod splitter_1
	hold_out out
	CALLC newline _dem_puts
	VALSTR str "\n"
	number_out str_ev
	str_out newline_in
	newline_out hold_ev
ENDMOD printn

printn_out merger_2