split/ /,<>;for$i(1..$_[0]){print((join" ",map{($_+$i+1)%2}1..$_[1]),$/)}