$%+=++($-*=$_^$x)*($x=$_)for`rev`=~/ ./g;print$%