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