my $x = join("", 0..9)x2;
  my $lx = length($x);
  my $next_mult = ($lx + 15) & ~0x0f;
  $x .= "*" x ($next_mult - $lx);
  print "|$x|\n"'