read
$_ a
for v in $a;{((s[p++]=v))||((s[--p-1]$v=s[p]));}
echo $s