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