CLEAR Y # loop times

INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y
INCREASE Y

REPEAT Y TIMES
(

	CLEAR A # will be used as a temp variable for decrease

	CLEAR B # will be x-1

	REPEAT X TIMES
	(
		CLEAR B
		REPEAT A TIMES
		(
			INCREASE B
		)
		INCREASE A
	)
	CLEAR A # temp decrease
	CLEAR C # will be X-1-1
	CLEAR D
	INCREASE D
	INCREASE D # amount of decreases for C (2)
	CLEAR E # temp variable to store the first x-1
	REPEAT X TIMES
	(
		INCREASE E
	)

	REPEAT D TIMES # repeat 2 times
	(
		CLEAR A # clearing temp variable
		REPEAT E TIMES
		(
			CLEAR C
			REPEAT A TIMES
			(
				INCREASE C
			)
			INCREASE A 
		)
		CLEAR E # clearing E 
		REPEAT C TIMES
		(
			INCREASE E # making E x-1
		)
	)

	# now B is x-1 and C is x-2

	# lets decrease B C times:

	CLEAR A # temp decrease
	CLEAR D

	REPEAT C TIMES
	(
		INCREASE D # amount of decreases for B
	)
	CLEAR E # temp variable to store decreased value
	REPEAT B TIMES
	(
		INCREASE E
	)

	REPEAT D TIMES # repeat D times
	(
		CLEAR A # clearing temp variable
		REPEAT E TIMES
		(
			CLEAR B
			REPEAT A TIMES
			(
				INCREASE B
			)
			INCREASE A 
		)
		CLEAR E # clearing E 
		REPEAT B TIMES
		(
			INCREASE E # making E x-1
		)
	)

	# now B is 0 if X = 1 and in other cases its 1

	REPEAT B TIMES
	(



		# now lets put the current number through alogrithm
		# since it was not 1

		# PARILLINEN CHECK:
		CLEAR A # A = X before modification
		CLEAR B # temp variable
		REPEAT X TIMES 
		(
			INCREASE A # Set a to X
			INCREASE B # set B to X as well
		)

		# Sitten käytetään jakofunktiota A:han ja tallennetaan vastaus C:hen

		CLEAR C # temp
		CLEAR D # temp
		REPEAT A TIMES
		(
			REPEAT B TIMES
			(
				INCREASE C # increase C first with B, then B-2, then B-4 etc
			)
			# decrease B by 1:
			CLEAR T # temp variable
			REPEAT B TIMES
			(
				CLEAR B
				REPEAT T TIMES
				(
					INCREASE B
				)
				INCREASE T
			)

			REPEAT B TIMES
			(
				INCREASE D # increase D first with B-1, then B-3, then B-5 etc
			)

			# decrease B by 1:
			CLEAR T # temp variable
			REPEAT B TIMES
			(
				CLEAR B
				REPEAT T TIMES
				(
					INCREASE B
				)
				INCREASE T
			)
		)

		# then lets decrease C by D to get X divided by 2

		CLEAR E # this will be the divided number
		CLEAR T # temp variable 

		REPEAT C TIMES
		(
			INCREASE E # set E to C so we can reduce it by D
		)

		REPEAT D TIMES # reduce 1 D times
		(
			CLEAR A # clearing temp variable
			REPEAT E TIMES # repeat always reduced amount of times
			(
				CLEAR T
				REPEAT A TIMES
				(
					INCREASE T
				)
				INCREASE A 
			)
			CLEAR E # clearing E 
			REPEAT T TIMES
			(
				INCREASE E # making E E-1
			)
		)


		# Nyt kun käsittelynumero on jaettu ja laitettu variableen E 
		# voidaan tehdä uusi variable joka on E - 1:

		CLEAR A # will be used as a temp variable for decrease

		CLEAR B # will be x-1

		REPEAT E TIMES
		(
			CLEAR B
			REPEAT A TIMES
			(
				INCREASE B
			)
			INCREASE A
		)

		# now B is E-1

		# now lets decrease B and E from X and store vastaus in V 

		CLEAR V # will be the vastaus
		REPEAT X TIMES
		(
			INCREASE V # Increase V to X in case it will be reduced by 0
			# and the loop wont add anything to V
		)

		CLEAR D # will be amount of decreases

		REPEAT B TIMES
		(
			INCREASE D # amount of decreases for V
		)
		CLEAR T # temp variable to store decreased value
		REPEAT X TIMES
		(
			INCREASE T # T should be the starting amount
		)

		REPEAT D TIMES # amount of decreases
		(
			CLEAR A # clearing temp variable
			REPEAT T TIMES
			(
				CLEAR V
				REPEAT A TIMES
				(
					INCREASE V
				)
				INCREASE A 
			)
			CLEAR T # clearing T
			REPEAT V TIMES
			(
				INCREASE T # making T V-1
			)
		)

		# now we have done X - B and stored to V. Lets do V - E to complete.
		
		CLEAR D # will be amount of decreases

		REPEAT E TIMES
		(
			INCREASE D # amount of decreases for V
		)
		CLEAR T # temp variable to store decreased value
		REPEAT V TIMES
		(
			INCREASE T # T should be the starting amount
		)

		REPEAT D TIMES # amount of decreases
		(
			CLEAR A # clearing temp variable
			REPEAT T TIMES
			(
				CLEAR V
				REPEAT A TIMES
				(
					INCREASE V
				)
				INCREASE A 
			)
			CLEAR T # clearing T
			REPEAT V TIMES
			(
				INCREASE T # making T V-1
			)
		)

		

		# now V is 1 if its parillinen and 0 if its pariton!

		REPEAT V TIMES # PARILLISEN LUVUN KÄSITTELY
		(
			# this happens only if X is parillinen

			# tehdään jakolasku X / 2

			# JAKOLASKU ALKAA
			# Sitten käytetään jakofunktiota A:han ja tallennetaan vastaus C:hen
			CLEAR A # A = X before modification
			CLEAR B # temp variable
			REPEAT X TIMES 
			(
				INCREASE A # Set a to X
				INCREASE B # set B to X as well
			)

			CLEAR C # temp
			CLEAR D # temp
			REPEAT X TIMES
			(
				REPEAT A TIMES
				(
					INCREASE C # increase C first with B, then B-2, then B-4 etc
				)
				# decrease A by 1:
				CLEAR T # temp variable
				REPEAT A TIMES
				(
					CLEAR A
					REPEAT T TIMES
					(
						INCREASE A
					)
					INCREASE T
				)

				REPEAT A TIMES
				(
					INCREASE D # increase D first with B-1, then B-3, then B-5 etc
				)

				# decrease A by 1:
				CLEAR T # temp variable
				REPEAT A TIMES
				(
					CLEAR A
					REPEAT T TIMES
					(
						INCREASE A
					)
					INCREASE T
				)
			)

			# then lets decrease C by D to get X divided by 2

			CLEAR E # this will be the divided number
			CLEAR T # temp variable 

			REPEAT C TIMES
			(
				INCREASE E # set E to C so we can reduce it by D
			)

			REPEAT D TIMES # reduce D times
			(
				CLEAR A # clearing temp variable
				REPEAT E TIMES # repeat always reduced amount of times
				(
					CLEAR T
					REPEAT A TIMES
					(
						INCREASE T
					)
					INCREASE A 
				)
				CLEAR E # clearing E 
				REPEAT T TIMES
				(
					INCREASE E # making E E-1
				)
			)
			# JAKOLASKU LOPPUU ja lasku tallennettu E:hen

			CLEAR M 
			REPEAT E TIMES 
			(
				INCREASE M # Tallennetaan X / 2 M:ään
			)
		)


		# Now lets check if the luku X is pariton:
		# PARITTOMAN LUVUN CHECK

		# Parittoman luvun check on täysin sama kuin parillisen 
		# mutta tehdään vain sama funktio X+1 :dellä

		# Eli katsotaan onko X+1 parillinen :D 

		# PARILLINEN CHECK:
		CLEAR A # A = X before modification
		CLEAR B # temp variable

		CLEAR P # This will be X+1 due to this being pariton check

		REPEAT X TIMES 
		(
			INCREASE P
		)

		INCREASE P # Nyt P on X+1
		REPEAT P TIMES 
		(
			INCREASE A # Set a to P
			INCREASE B # set B to P as well
		)

		# Sitten käytetään jakofunktiota A:han ja tallennetaan vastaus C:hen

		CLEAR C # temp
		CLEAR D # temp
		REPEAT A TIMES
		(
			REPEAT B TIMES
			(
				INCREASE C # increase C first with B, then B-2, then B-4 etc
			)
			# decrease B by 1:
			CLEAR T # temp variable
			REPEAT B TIMES
			(
				CLEAR B
				REPEAT T TIMES
				(
					INCREASE B
				)
				INCREASE T
			)

			REPEAT B TIMES
			(
				INCREASE D # increase D first with B-1, then B-3, then B-5 etc
			)

			# decrease B by 1:
			CLEAR T # temp variable
			REPEAT B TIMES
			(
				CLEAR B
				REPEAT T TIMES
				(
					INCREASE B
				)
				INCREASE T
			)
		)

		# then lets decrease C by D to get X divided by 2

		CLEAR E # this will be the divided number
		CLEAR T # temp variable 

		REPEAT C TIMES
		(
			INCREASE E # set E to C so we can reduce it by D
		)

		REPEAT D TIMES # reduce 1 D times
		(
			CLEAR A # clearing temp variable
			REPEAT E TIMES # repeat always reduced amount of times
			(
				CLEAR T
				REPEAT A TIMES
				(
					INCREASE T
				)
				INCREASE A 
			)
			CLEAR E # clearing E 
			REPEAT T TIMES
			(
				INCREASE E # making E E-1
			)
		)


		# Nyt kun käsittelynumero on jaettu ja laitettu variableen E 
		# voidaan tehdä uusi variable joka on E - 1:

		CLEAR A # will be used as a temp variable for decrease

		CLEAR B # will be x-1

		REPEAT E TIMES
		(
			CLEAR B
			REPEAT A TIMES
			(
				INCREASE B
			)
			INCREASE A
		)

		# now B is E-1

		# now lets decrease B and E from X and store vastaus in V 

		CLEAR V # will be the vastaus
		REPEAT P TIMES
		(
			INCREASE V # Increase V to X in case it will be reduced by 0
			# and the loop wont add anything to V
		)

		CLEAR D # will be amount of decreases

		REPEAT B TIMES
		(
			INCREASE D # amount of decreases for V
		)
		CLEAR T # temp variable to store decreased value
		REPEAT P TIMES
		(
			INCREASE T # T should be the starting amount
		)

		REPEAT D TIMES # amount of decreases
		(
			CLEAR A # clearing temp variable
			REPEAT T TIMES
			(
				CLEAR V
				REPEAT A TIMES
				(
					INCREASE V
				)
				INCREASE A 
			)
			CLEAR T # clearing T
			REPEAT V TIMES
			(
				INCREASE T # making T V-1
			)
		)

		# now we have done X - B and stored to V. Lets do V - E to complete.
		
		CLEAR D # will be amount of decreases

		REPEAT E TIMES
		(
			INCREASE D # amount of decreases for V
		)
		CLEAR T # temp variable to store decreased value
		REPEAT V TIMES
		(
			INCREASE T # T should be the starting amount
		)

		REPEAT D TIMES # amount of decreases
		(
			CLEAR A # clearing temp variable
			REPEAT T TIMES
			(
				CLEAR V
				REPEAT A TIMES
				(
					INCREASE V
				)
				INCREASE A 
			)
			CLEAR T # clearing T
			REPEAT V TIMES
			(
				INCREASE T # making T V-1
			)
		)

		

		# now V is 1 if X is pariton and 0 if X is parillinen!

		REPEAT V TIMES # PARITTOMAN LUVUN KÄSITTELY
		(
			# eli kerro kolmella ja lisää yksi
			CLEAR T # temp to be X 
			REPEAT X TIMES 
			(
				INCREASE T # set T to X
			)

			CLEAR M # clearataan M jotta se voidaan asettaa 
			CLEAR K # temp variable to be 3
			INCREASE K 
			INCREASE K 
			INCREASE K # set K to 3
			REPEAT T TIMES 
			(
				REPEAT K TIMES 
				(
					INCREASE M
				)
			)

			INCREASE M # last increase 
		)
		
		# viimeisenä asetetaan X M:ään 
		CLEAR X 
		REPEAT M TIMES 
		(
			INCREASE X 
		)
		PRINT X #print 
	)



)