read -a A
echo "\
	0sB[lB0=a]sj[[YES]P10P1sB]sy \
	${A[0]} ${A[1]}* \
	[d${A[3]}=y]saljx \
	[d${A[2]}%${A[3]}=y]saljx \
	[[d${A[2]}%0=y]saljx]sb \
	${A[2]} ${A[3]}=b \
	[[NO]P10P]saljx \
" | dc