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