read n; read _; s=$(cat -)
dc -e "
	1001sL [dsL]sl [dlL>l]sf
	0sR [dsR]sr [dlR<r]sg
	[q]sq [z0=q lfx lgx s_ lxx]sx
	$s lxx lRlL- n10P
"