#!/usr/bin/perl
# PLSS Township wanted list.
# Yes, we could add a check to see if we got all that we requested...
# Author: Dan Jacobson https://www.jidanni.org/
# Copyright: https://www.gnu.org/licenses/gpl.htm
# Created: 2023-11-20T22:22:01+0000
# Last-Updated: 2023-12-03T22:21:39+0000
#     Update #: 48
#
use strict;
use warnings q(all);
use PointId2Address;

my @wants = PointId2Address::twsp_blanket(
    {
        state    => "ND",
        meridian => "05",
        T        => [129],
        R        => [ -107 .. -54, -49 .. -47 ],
	## Alas, even if we did get the Sisseton Reservation townships, the monuments are not on
	## their section corners.
        S        => [ 31 .. 36 ]
    }
);
my @k;
for(@wants){
    if(/ND051290N05[45]/){s/W0/WA/;}
    next if /ND051290N0490W0SN3[1234]/;
    push @k, $_;
}
print join "%7C", @k;