sub story {
  my ($source) = @_;
  my $tab = 3;

  while (my $line = <$source>) {
    chomp($line);
    if ($line =~ m/^</) {
      line($tab,$line);
    }
    elsif ($line =~ /^[1-6]\s/) {
      my ($heading,$text) = split(/ /,$line,2);
      heading($tab,$heading,$text);
    }
    elsif ($line =~ /^[bh]r$/) {
      line($tab,"<$line>");
    }
    else {
      paragraph($tab,$line);
    }
  }
}