@_=map$%^=$_,glob<>.<>;print$_[$'+/ /]^$_[$`],$/for<>