(while(map[prn:cut"1 0 0 0 1 0 1"_(+ _ 5)]('(0(2 6 2)(4 2 0)(0 6 4)(8 2 8)(8 6 8)(8 8 8))(read)))(prn))