#!/usr/bin/perl
# Simulate the strip of PLSS point IDs along the border,
# Just to see how.

# Author: Dan Jacobson https://www.jidanni.org/
# Copyright: https://www.gnu.org/licenses/gpl.htm
# Created: 2023-11-27T03:04:28+0000
# Last-Updated: 2023-11-27T03:12:43+0000
#     Update #: 3

use strict;
use warnings q(all);
for my $range ( -107 .. -47 )
{    #Yes, we will overflow a couple miles at each end.
    for my $column ( 1 .. 6 ) {
        for my $half ( 0, 4 ) {
            printf "ND051290N%03d0W0_%d%d0100\n",
              abs $range, $column, $half;
        }
    }
}