for(<>){ for$y(/ /..$`){ print"@{[map+($_%3!=$'%3<2)+($y%3!=$`%3<2),1..$']}\n"; } }