#!/usr/bin/perl
# PLSS Township wanted list, county of Lake, Illinois.

# 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-11T01:15:10+0000
#     Update #: 28
#
use strict;
use warnings q(all);
use PointId2Address;
use Bou2colrow;
my %strip;
for ( 1 .. 6 ) { # single township:
    push @{ $strip{w} }, Bou2colrow::cr2bUS( 3,  $_ );    #west sections
    push @{ $strip{s} }, Bou2colrow::cr2bUS( $_, 1 );     #south sections
}
my %wants;
my %template = ( state => "IL", meridian => "03" );

# Get the strip of sections along the west border of the county,
$template{T} = [ 43 .. 46 ];
$template{R} = [9];
$template{S} = [@{ $strip{w}}];
$wants{$_}   = undef for PointId2Address::twsp_blanket( \%template );

# Get the strip of sections along the south border of the county,
$template{T} = [43];
$template{R} = [ 9 .. 12 ];
$template{S} = [ @{ $strip{s}} ];
$wants{$_}   = undef for PointId2Address::twsp_blanket( \%template );
my $separator = $ENV{debug} ? "\n" : "%7C";
print join $separator, sort keys %wants;