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