rel pun :macros
define
clad A
	cla
	add A
	terminate
define
punch
	p7h
	p7h
	p7a
	terminate
define
print
	pnt
	pnt
	pna
	terminate
define
feed A
	llr (-A
	opr 166032
	add (1
	alr
	trn .-3
	terminate
	amz=opr 51	xx=hlt	lal=opr 140012	lcc=lac 40
	anl=opr 305	ana=anl 20	lbg=6022

start
tv