dc -e "
	? 0
	[SAllx]sy [z0!=y]sl llx
	[q]sq [+LAs_llx]sL [
		lA0=q lA [8lLx]sy 15%0=y
		lA0=q lA [4lLx]sy 3%0=y
		lA0=q lA 5%0=y
		lA0=q lA ZlLx
	]sl 0 llx
	n10P
"