read s t
dc -e[NO][[YES]]s^_$s"_$t"^p