#!/usr/bin/perl
use 5.016;
use warnings;

sub repeat {
	my ($n, $f) = @_;

	return sub{ ($f->($_[0])) x $n };
}

sub repeat_alt {
	my ($s, $n, $f) = @_;

	return sub{ join($s, map{ $f->($_[0] + $_) } (0 .. $n - 1)) };
}

sub f {
	my ($m, $n) = @_;

	my $marker = sub{ $_[0] % 2 ? 'x' : 'o' };
	my $f = repeat_alt("", $n, repeat($m, $marker));
	my $g = repeat_alt("\n", $n, repeat($m, $f));

	return ($n == 1 ? $f : $g)->(0);
}

while(<STDIN>){
	my ($m, $n) = split;

	print "$m $n\n", f($m, $n), "\n\n";
}