cell main()
	{
		(void) operator if (bool cond,capsule ifcap);  	// CPU OPERATOR
		(long) operator (long X) *  (long Y) ;  		// CPU OPERATOR
		(long) operator (long X) -  (long Y) ;  		// CPU OPERATOR
		(long) operator (long X) +  (long Y) ;  		// CPU OPERATOR
		(long) operator (long X) =  (long Y) ;  		// CPU OPERATOR
		(long) operator (long X) == (long Y) ;		// CPU OPERATOR
		(long) operator (long X) *  (long Y) ;  		// CPU OPERATOR
		(void) operator printint (int p);  		// OS OPERATOR

		operator ifelse (bool cond,capsule ifcap,capsule elsecap)
		{
			if (cond)	ifcap
			if (not cond) 	elsecap
		}

		operator (long [int,float,byte] n) !
		{
			ifelse (n == 0)
				{
					( long ) 1
				}

				{
					( ( n - 1 ) ! ) * n
				}
		}

		int n = 4;
		print(n!);
	}

//ASSEMBLY CODE:
//
//1000-1001
//n:		INTEGER
//
//1002-100F 		operator ifelse (bool cond,capsule ifcap,capsule elsecap)
//		PUSHOP	 	if
//		FOLD
//			COPY  	#1
//		UNFOLD
//		COPY 		#2
//		PUSHOP	 	if
//		FOLD
//			PUSHOP	 	not
//			COPY 		#1
//		UNFOLD
//		COPY	#3
//
//1010-10FF 		operator (long [int,float,byte] n) ! 101F 10FF
//		PUSHOP 		ifelse
//		FOLD
//			COPY   		#1
//			PUSHOP 		==
//			PUSHDA 		(long),0
//		UNFOLD
//		CAPSULATE
//			PUSHDA		(long) 1
//		ENCAPSULATE
//		CAPSULATE
//			FOLD
//				FOLD
//					COPY  	#1
//					PUSHOP  	-
//					PUSHDA  	(long),1
//				UNFOLD
//				PUSHOP	!
//			UNFOLD
//			PUSHOP  		*
//			COPY		#1
//		ENCAPSULATE
//
//11FF-12FF 		cell main
//
//main:
//		CREATESTACK
//		REGOP		1002
//
//
//		FOLD
//			PUSHAD		(int),1000
//			PUSHOP  		=
//			PUSHDA  		(int),4
//		UNFOLD
//		WAIT
//		FOLD
//			PUSHOP  		print
//			FOLD
//				PUSHAD  		(int),1000
//				PUSHOP  		FETCH
//				PUSHOP 		!
//			UNFOLD
//		UNFOLD
//		WAIT
//		DEREGOP	 	102
//		DELETESTACK
//