program DriveNeighborCount(input, output);
{ A driver program for NeighborCount in Life program. }
{ 
Pre:  None.
Post: Verifies that the function NeighborCount returns the correct values.
Uses: procedure Initialize.
}

{Declarations of constants, types, and variables may be
taken from the main program.}

begin
  Initialize(map);
  for row := 1 to maxrow do
  begin
    for col := 1 to maxcol do
      write(NeighborCount(row,col):3);
    writeln
  end
end.