read n
dc -e "
	[c[000000000000]n]sy ${n}d 50!>y
	[[li0<y]sl[li1-lxx]sd[sillx]sx
		[li*ldx]sy 1rlxx
		[
			[d10%Sr10/ldx]sy 12lxx
			[Lrnldx]sy 12lxx c
		]sy dZ12<y [n]sy z1=y
	]sy z1=y
	10P
"