#!/usr/bin/perl
# -*- mode: cperl; coding: utf-8; -*-

use strict;
use warnings;
use utf8;

use lib "/h/hamren/src/post/lib", "."; my $rval = do "common.pm" || die "$0: common.pm failed ($!) [$@]";  #--- Single-line common initializer

#--- End of header

my $text          = em("text");
post(
    header(),

    p(read_main_article("Cobol")),
    p(read_cc_article()),

    h2("The rearranged source code"),

    p("To make the code easier to follow, I have rearranged it so that declarations from «working-storage section»",
      " are show together with the code that uses them.",
      " The full unmodified source is show at ",
      page_ref("end", "the end of the article"),
      "."),
    do ("posts/anagram-cobol/rearranged-source.pl"),

    a("end", ""),
    h2("The unmodified source code"),
    source_file("./anagram-gnu.cob.trimmed"),

    footer()
);
__END__