map$\+=$_*($.%3-1),glob while<>;print