#!/usr/bin/perl

$rows = <>;
$cols = <>;
print $rows * $cols, "\n";
for $row (0..$rows-1) {
for $col (0..$cols-1) {
  print "$row $col\n";
}
}
print "19\n";