get_type	FUNCTION RN1,D3
		0.15,1/0.80,2/1,3

		GENERATE (exponential(1,0,(1/148.148))),,,,1
		ASSIGN func_types,FN$get_type
		QUEUE cpu1
		SEIZE block_cpu
		DEPART cpu1
		TRANSFER ,test_type

		GENERATE (exponential(1,0,(1/230.77))),,,,2
		ASSIGN func_types,FN$get_type
		QUEUE cpu2
		SEIZE block_cpu
		DEPART cpu2
		TRANSFER ,test_type

		GENERATE (exponential(1,0,(1/352.94))),,,,3
		ASSIGN func_types,FN$get_type
		QUEUE cpu3
		SEIZE block_cpu
		DEPART cpu3
		TRANSFER ,test_type

		GENERATE (exponential(1,0,(1/100.43))),,,,4
		ASSIGN func_types,FN$get_type
		QUEUE cpu2
		SEIZE block_cpu
		DEPART cpu2
		TRANSFER ,test_type

test_type	TEST L P$func_types,3,type3
		TEST L P$func_types,2,type2

		ADVANCE (normal(1,0.00022, 0.000035))
		RELEASE block_cpu
		TERMINATE

type2		ADVANCE (normal(1,0.00074, 0.000075))
		RELEASE block_cpu
		TERMINATE

type3		ADVANCE (normal(1,0.0033,0.00045))
		RELEASE block_cpu
		TERMINATE

		GENERATE 1
		TERMINATE 1
		START 300