<>=~/(.+) (.+)/;for$i(1..$1){for(1..$2){print(($_+$i+1)%2);$_-$2?print" ":print"\n"}}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page