#! perl -w
while (<>) {
  chomp;
  die unless (`pngtopnm $_ | pnmfile`) =~ /(\d+) by (\d+)/;
  push @l,$_;
  $width{$_}=$1;
  $height{$_}=$2;
}
print qq(<div style="font-size:100%">\n);
$space="0.png";
for (1..1) {
  $len=int(rand 5)+3;
  $len=1000;
  $p=$space;
  for (1..$len) {
    for (;;) {
      $z=$l[rand@l];
      last unless $z eq $p;
    }
    $p=$z;
    &g($z);
  }
  #&g($space);
  #print " ";
}
sub g {
  my $file=shift;
  print qq(<img src="http://mit.edu/kenta/www/one/1stroke/$file" width="$width{$file}" height="$height{$file}">\n);
}
print "</div>\n";