#!/usr/bin/perl

# Make an appropriate number of outlines.
$count = $ARGV[0];

for ($i = 1; $i <= $count; ++$i) {
  print "$i\n";
  if ($i < 10) {
    $fname = "outline.0$i.txt";
    $num = "0$i";
  }
  else {
    $fname = "outline.$i.txt";
    $num = $i;
  }
  if (!-f $fname) {
    $prev = $i-1;
    if ($prev < 10) { $prev = "0$prev"; }
    $next = $i+1;
    if ($next < 10) { $next = "0$next"; }
    system("cat outline.00.txt | sed -e s/XXNEXT/$next/g | sed -e s/XXPREV/$prev/g | sed -e s/XX/$num/g | cat > $fname");
  }
} # for