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