rev|{                                                                          
read s
read t                        
u=$(sed 's/./[&?]/g'<<<$t)
echo $s|sed "s/$u/$t/;t l
cELBAROTSERNU
:l
y/?/a/"
}|rev             