get;map {say -+^$^a*$^b},words