loop:
	const 123
	stack 1

	const 10
bottle_loop:
	intout
	const msg
	jsr putstr
	subi 1
	peek
	jnz bottle_loop

	toss

	stack 1
	sync

putstr:
	peek
	dload
	peek
	jez putstr_end
	charout
	toss
	addi 1
	jump putstr
putstr_end:
	toss
	toss
	ret
	djump

msg:	str " bottles on the wall.\nShoot one down and I don't remember the rest.\n"