cat	START 0
.beri in pisi
loop	RD #0
	WD #1
	J loop

 END loop