;redcode
;name Coreclear v1.0
;author Matthew K. Gray

cclp	dat	#0,	#-4000
ccl	jmz	ccl,	<cclp
	slt	#20,	@cclp
	jmp	ccl
	mov	cclp,	@cclp
	jmp	ccl,	#0
end	ccl