
rel pun

beg,	feed 100
	add (trn lbg-1
	punch
	feed 20
	hlt+cla -opr
	add (sto pcd
	sto ram
	sto din
bg1,	cla
	sto pci
eat,	r3c 251
	trn pro
	add (add
	trn ot
	r3c +lad -opr
fo2,	alr 40
	add ram
	com
	sto end
	r3c
ram,	xx
	lad
	ala
	add ram
	add (1
	sto ram
	add end
	trn ram-1
	r3c+lpd-opr+40
	trn .+3
	amz
	trn ppc
	ala
	add (flex che
	print
	add (flex ck

	print
	hlt
	add din
	trn prb
	sto ram
	tra eat
ppc,	add din
	trn pbb
	clc
	add pci
	trn bpc
	add (-1
	trn ppn
	clad ram
	sto din
	tra eat
bpc,	llr pcd
	lac
	add (llr
	sto cks
	punch
	add (llr pcd+1
	sto get
	lal
	add (llr pcd+1
	com
	sto lpw
go,	add ram
	add (llr-1
	com
	sto gmr
get,	xx
	lac
	punch
	lac
	add cks
	sto cks
	clad get
	add (1
	sto get
	add lpw
	trn mor
	llr cks
	lcc
	punch
	add get
	sto pci
	feed 40
	tra ppc+7
mor,	add gmr
	trn get
	sto pci
	clad (sto pcd
	sto ram
	sto din
	add (llr
	sto get
	add gmr
	com
	sto lpw
	tra eat
ppn,	add lpw
	tra go
pro,	add (1
	trn ot
	clc
	sto ma1
	add pci
	sto pb3
	add (1
	sto pb4
	clad din
	sto et3
	add (-1+add
	sto plw
	add (2-add
	sto et4
	add (llr-1
	sto pb1
	sto lpw
	add (2-llr
	sto ram
	com
	sto din
	lac
	tra et2
ot,	clad (flex loa
	print
	add (flex d t
	print
	add (flex ape
	print
	add (char r

	pna
	hlt
	tra .+2
	r3c
	r3c 40
	trn .-2
	r3c+alr-opr
	tra pro+2
prb,	com
	sto ram
et1,	r3c+alr-opr
et2,	add (slr
et3,	xx
	lac
	trn qbl
	add (add
	trn qb2
	r3c
et4,	xx
	lad
	tra fo2
pbb,	com
	sto ram
	cla
	sto cks
	add end
	add (-llr
	sto end
	llr (-100100
	slr ct
	llr lpw
	slr pb1
	p6s
	p6s
	p6s
	p6s
	p6s
pb1,	xx
	lac
	punch
	lac
	add cks
	sto cks
	clad pb1
	add (1
	sto pb1
	add end
	trn pb2
	llr cks
	lcc
	punch
	llr ct
	lal
	alr
msu,	lcc
	trn et5
	cyr 40
	ala
foo,	add ma1
	cyr
	cyr
	add (-opr
	sto ma1
	trn .+2
	tra msu
	add pb4
	sto pb3
	add (1
	sto pb4
	tra msu
et5,	clad pb3
	sto pb4
	add (-1
	sto pb3
	tra et1
pb2,	llr ct
	lal
	sto ct
	trn pb1
	clad ma1
pb3,	xx
	anl 40
	slr gmr
pb4,	xx
	anl 40
	sto pci
	lac
	add gmr
pb5,	ala
	add pci
	trn .+5
	cyl
	sto pci
	lal
	tra pb5
	lac
	punch
	add pb4
	sto pb3
	add (1
	sto pb4
	lac
	add cks
	sto cks
	tra pb1

x1=(z
z=(trn)+add
ct,	xx
lpw,	xx
din,	xx
gmr,	xx
pci,	xx
end,	xx
cks,	xx
ma1,	xx
qbl,	clad (tra
	sto ct
	slr lpw
	feed 40
	llr lpw
	clad (17777
	ana
	add ct
	lpd
	punch
	add ct
	com
	trn .+6
	cla
plw,	xx
	punch
	feed 100
	hlt
	tra beg
qb2,	clad (add
	tra qbl+2


bug,	llr bpc+2
	slr bg1
	llr (opr
	slr et2
	slr plw-3
	llr x1
	slr qb2+1
	tra beg+11

constants



pcd,	xx

start beg
