read a$a&&read b;(a=${a%?};$a||. *)
echo ${b/*$a/${b%$a*}[$a]}