read n; read s
dc -e "
	[li0<y]sl [li1-lxx]sd [sillx]sx
	[rd li:A + ldx]sy $s 0 $n lxx
	[r1+r]sY [d li;A !>Y ldx]sy 10/ 0r $n lxx
	r30* n10P
"