<>;$%+=++($-*=$_^$x)*($x=$_)for(reverse<>)=~/ ./g;print$%