<>=~/(.+) (.+)/;for$i(1..$1){for(1..$2){print(($_+$i+1)%2);$_-$2?print" ":print"\n"}}