File standardInput readLine split map(asNumber)reduce(Y,X,Y repeat(y,for(x,1,X,write(x+y&1,if(X>x," ","
")))))