;redcode
;name .
;author B. Cook <bpc25@cam.ac.uk>
;strategy Small Coreclear
;assert 1==1

org	ii

i	dat	$ii,	v+1

ii	spl	#(v-i),	(v-i)
iii	mov.i	*i,	>i
iv	jmp	iii,	<i-15

v	dat	$0,	(v-i)
	end