#!/usr/bin/perl -w

print "P1\n256 256\n";

foreach my $y (0 .. 255)
{
  foreach my $x (0 .. 255)
  {
    my $fn=sprintf("ssdgood/mem0x%X",($y<<24)+($x<<16));
    #print "$fn\n";
    my $v="0 ";
    if(-f $fn)
    {
      $v="1 " if(-s $fn);
    }
    print $v;
  }
  print "\n";
}

