read n; s=$(cat -)
dc -e "
	[li0!=y]sl [li1-lxx]sd [sillx]sx
	[dZ1+rdZ10r^+Z=Gz0=L]sf [60a]sL [61a]sE [62a]sG
	${s} [-SSldx]sy ${n}lxx
	[LSd0=Ez1=fn10Pcldx]sy ${n}lxx
"