map($_[y///c]||=$_,/9*8*7*6*5*4*3*2*1*0*/g),@_=!print pop@_,$/for<>