forth-stuff/codetest.forth

: EGGSIZE
	DUP 18 < IF 1 . ELSE
	DUP 21 < IF 2 . ELSE
	DUP 24 < IF 3 . ELSE
	DUP 27 < IF 4 . ELSE
	DUP 30 < IF 5 . ELSE
		-1 .
	THEN THEN THEN THEN THEN DROP ;

23 EGGSIZE
29 EGGSIZE
40 EGGSIZE