;redcode
;name Safe Clear
;author Lukasz Adamowski
;strategy 1c increment clear, doesn't kill itself
;assert 1

	spl	#0,	}1
	mov	*2,	}0
	dat	$0,	}-1