EMPTY
OOPS MESSAGES
." TEST PROGRAM ONE " CR
PROGRAM
MESSAGE getA
MESSAGE getB
MESSAGE getC
MESSAGE getD
MESSAGE getE
MESSAGE getF
MESSAGE setA
MESSAGE setB
MESSAGE setC
MESSAGE setD
MESSAGE setE
MESSAGE setF

super Nil
var Int A
begin class Definition Level1_Class
setA
	begin colon Method
		A !
	end colon Method
getA
	begin colon Method
	A @
	end colon Method
end class Definition

super  Level1_Class
var Int B
begin class Definition Level2_Class
setB
	begin colon Method
		B !
	end colon Method
getB
	begin colon Method
	B @
	end colon Method
end class Definition

super  Level2_Class
var Int C
begin class Definition Level3_Class
setC
	begin colon Method
		C !
	end colon Method
getC
	begin colon Method
	C @
	end colon Method
end class Definition

super  Level3_Class
var Int D
begin class Definition Level4_Class
setD
	begin colon Method
		D !
	end colon Method
getD
	begin colon Method
	D @
	end colon Method
end class Definition

super  Level4_Class
var Int E
begin class Definition Level5_Class
setE
	begin colon Method
		E !
	end colon Method
getE
	begin colon Method
	E @
	end colon Method
end class Definition

instance Level5_Class shit
1 setA shit
2 setB shit
3 setC shit
4 setD shit
5 setE shit
getA shit .
getB shit .
getC shit .
getD shit .
getE shit .

END.