csv_analyse.pl

#!/usr/bin/perl
##
#   File : csv_analyse.pl
#   Date : 12/Apr/2023
#   Author : spjspj
#   Purpose : Analyse CSV data ingested..
##

use strict;
use POSIX;
use LWP::Simple;
use Socket;
use File::Copy;
use Math::Trig;
use DateTime;
#use DateTime::Format::Duration;

my %csv_data;
my $in_safe_csv_data = 0;
my %safe_csv_data;
my $csv_block;
my %meta_data;
my %calculated_data;
my %col_roundings;
my $max_field_num = 0;
my $max_rows = 0;
my %col_types;
my $show_formulas = 0;
my $count = 0;
my %each_element;
my $each_element_count = 0;
my $SELF_ELEMENT = 0;

sub write_to_socket
{
    my $sock_ref = $_ [0];
    my $msg_body = $_ [1];
    my $form = $_ [2];
    my $redirect = $_ [3];
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    my $yyyymmddhhmmss = sprintf "%.4d%.2d%.2d-%.2d%.2d%.2d", $year+1900, $mon+1, $mday, $hour,  $min, $sec;
    print $yyyymmddhhmmss, "\n";

    $msg_body = $msg_body;

    my $header;
    if ($redirect =~ m/^redirect/i)
    {
        $header = "HTTP/1.1 301 Moved\nLocation: /csv_analyse/\nLast-Modified: $yyyymmddhhmmss\nConnection: close\nContent-Type: text/html; charset=UTF-8\nContent-Length: " . length ($msg_body) . "\n\n";
    }
    elsif ($redirect =~ m/^noredirect/i)
    {
        $header = "HTTP/1.1 200 OK\nLast-Modified: $yyyymmddhhmmss\nConnection: close\nContent-Type: text/html; charset=UTF-8\nContent-Length: " . length ($msg_body) . "\n\n";
    }

    $msg_body =~ s/\n\n/\n/mig;
    $msg_body =~ s/\n\n/\n/mig;
    $msg_body =~ s/\n\n/\n/mig;
    $msg_body = $header . $msg_body;
    $msg_body .= chr(13) . chr(10) . "0";
    print ("\n===========\nWrite to socket: ", length($msg_body), " characters!\n==========\n");
    syswrite ($sock_ref, $msg_body);
}

sub read_from_socket
{
    my $sock_ref = $_ [0];
    my $ch = "";
    my $prev_ch = "";
    my $header = "";
    my $rin = "";
    my $rout;
    my $isPost = 0;
    my $done_expected_content_len = 0;
    my $expected_content_len = 0;
    my $old_expected_content_len = 0;
    my $seen_content_len = -2;
    my $content = "";

    vec ($rin, fileno ($sock_ref), 1) = 1;

    # Read the message header
    while (((!(ord ($ch) == 13 and ord ($prev_ch) == 10)) && !$isPost) || ($isPost && $seen_content_len < $expected_content_len))
    {
        if (select ($rout=$rin, undef, undef, 200) == 1)
        {
            $prev_ch = $ch;
            if (sysread ($sock_ref, $ch, 1) < 1)
            {
                return "resend";
            }

            $header .= $ch;
            if (!$isPost && $header =~ m/POST/img)
            {
                $isPost = 1;
            }
        }

        if ($seen_content_len >= -1)
        {
            $seen_content_len ++;
            $content .= $ch;
        }
        if (ord ($ch) == 13 and ord ($prev_ch) == 10)
        {
            $seen_content_len = -1;
        }

        if ($isPost == 1 && $done_expected_content_len == 0)
        {
            if ($header =~ m/Content.Length: (\d+)/im)
            {
                $expected_content_len = $1;
                if ($old_expected_content_len < $expected_content_len)
                {
                    $old_expected_content_len = $expected_content_len;
                }
                else
                {
                    $done_expected_content_len = 1;
                }
            }
        }
    }
    return $header;
}

my %field_letters;
$field_letters {"A"} = 0;
$field_letters {"B"} = 1;
$field_letters {"C"} = 2;
$field_letters {"D"} = 3;
$field_letters {"E"} = 4;
$field_letters {"F"} = 5;
$field_letters {"G"} = 6;
$field_letters {"H"} = 7;
$field_letters {"I"} = 8;
$field_letters {"J"} = 9;
$field_letters {"K"} = 10;
$field_letters {"L"} = 11;
$field_letters {"M"} = 12;
$field_letters {"N"} = 13;
$field_letters {"O"} = 14;
$field_letters {"P"} = 15;
$field_letters {"Q"} = 16;
$field_letters {"R"} = 17;
$field_letters {"S"} = 18;
$field_letters {"T"} = 19;
$field_letters {"U"} = 20;
$field_letters {"V"} = 21;
$field_letters {"W"} = 22;
$field_letters {"X"} = 23;
$field_letters {"Y"} = 24;
$field_letters {"Z"} = 25;

$field_letters {0} = "A";
$field_letters {1} = "B";
$field_letters {2} = "C";
$field_letters {3} = "D";
$field_letters {4} = "E";
$field_letters {5} = "F";
$field_letters {6} = "G";
$field_letters {7} = "H";
$field_letters {8} = "I";
$field_letters {9} = "J";
$field_letters {10} = "K";
$field_letters {11} = "L";
$field_letters {12} = "M";
$field_letters {13} = "N";
$field_letters {14} = "O";
$field_letters {15} = "P";
$field_letters {16} = "Q";
$field_letters {17} = "R";
$field_letters {18} = "S";
$field_letters {19} = "T";
$field_letters {20} = "U";
$field_letters {21} = "V";
$field_letters {22} = "W";
$field_letters {23} = "X";
$field_letters {24} = "Y";
$field_letters {25} = "Z";

sub process_csv_data
{
    my $block = $_ [0];
    my $posted = $_ [1];
    $csv_block = $block;
    my %new_csv_data;
    %csv_data = %new_csv_data;
    my %new_col_types;
    %col_types = %new_col_types;
    $max_field_num = 0;
    $max_rows = 0;

    if ($posted eq "POSTED")
    {
        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
        my $yyyymmddhhmmss = sprintf "%.4d%.2d%.2d-%.2d%.2d%.2d", $year+1900, $mon+1, $mday, $hour,  $min, $sec;
        open CSV_FILE, ("> d:\\perl_programs\\csv_ingest\\CSV_$yyyymmddhhmmss.txt");
        print CSV_FILE $block;
        close CSV_FILE;
    }

    my $row_num = 1;
    my $col_letter = "A";
    while ($block =~ s/^(.*?)\n//im)
    {
        my $line = $1;
        chomp $line;
        if ($line =~ m/^$/)
        {
            next;
        }
        $col_letter = "A";
        while ($line =~ m/./ && $line =~ s/^([^;\t]*)([;\t]|$)//)
        {
            my $field = $1;
            # Special case of G^^ (G+Number two above) G__ (G+number two below)
            while ($field =~ m/([A-Z])([\^])([\^])/ && $row_num > 1)
            {
                my $col = $1;
                my $line_mod = $2;
                my $line_mod_2 = $3;

                my $go_up_lines = 2;
                while ($field =~ m/([A-Z])([\^])([\^])([\^]*)/)
                {
                    my $field_orig = "$1$2$3$4";
                    my $field_up = $field_orig;
                    $field_orig =~ s/\^/\\^/g;
                    $go_up_lines = 2;
                    while ($field_up =~ s/([A-Z])([\^])([\^])([\^])/$1$2$3/)
                    {
                        $go_up_lines++;
                    }

                    my $up_field = $col . ($row_num-$go_up_lines);
                    $field =~ s/$field_orig/$up_field/;
                }
            }

            while ($field =~ m/([A-Z])([\^])([2-9])/ && $row_num > 1)
            {
                my $col = $1;
                my $line_mod = $2;
                my $line_mod_2 = $3;
                my $field_orig = "$1\\$2$3";

                my $go_up_lines = $line_mod_2;
                my $up_field = $col . ($row_num-$go_up_lines);
                $field =~ s/$field_orig/$up_field/;
            }

            # Special case of G__ (G+number two below)
            while ($field =~ m/([A-Z])(_)(_)/ && $row_num > 1)
            {
                my $col = $1;
                my $line_mod = $2;
                my $line_mod_2 = $3;

                my $go_down_lines = 2;
                while ($field =~ m/([A-Z])(_)(_)(_*)/)
                {
                    my $field_orig = "$1$2$3$4";
                    my $field_down = $field_orig;
                    $go_down_lines = 2;

                    while ($field_down =~ s/$col(_)(_)(_)/$col$1$2/)
                    {
                        $go_down_lines++;
                    }

                    my $down_field = $col . ($row_num+$go_down_lines);
                    $field =~ s/$field_orig/$down_field/;
                }
            }

            while ($field =~ m/([A-Z])(_)([2-9])/ && $row_num > 1)
            {
                my $col = $1;
                my $line_mod = $2;
                my $line_mod_2 = $3;
                my $field_orig = "$1$2$3";

                my $go_down_lines = $line_mod_2;
                my $down_field = $col . ($row_num+$go_down_lines);
                $field =~ s/$field_orig/$down_field/;
            }

            # Special case of G^ (G+Number one above) G^^ (G+Number two above) G_ (G+number one below) or G> (G+same number) or G!(G+thethingabovebutincrementedownum..)
            while ($field =~ m/([A-Z])([\^\_>!])/ && $row_num > 1)
            {
                my $col = $1;
                my $line_mod = $2;

                if ($line_mod eq "\^")
                {
                    my $up_field = $col . ($row_num-1);
                    $field =~ s/([A-Z])([\^\_>])/$up_field/;
                }
                elsif ($line_mod eq "\_")
                {
                    my $down_field = $col . ($row_num+1);
                    $field =~ s/([A-Z])([\^\_>])/$down_field/;
                }
                elsif ($line_mod eq ">")
                {
                    my $same_field = $col . $row_num;
                    $field =~ s/([A-Z])([\^\_>])/$same_field/;
                }
                elsif ($line_mod eq "!")
                {
                    my $fv = get_field_value ($row_num-1, $col_letter, 1, 1);
                    while ($field =~ m/([A-Z])!/)
                    {
                        my $cf = $1;
                        $fv =~ m/([A-Z])(\d+)/;
                        my $cc = $1;
                        my $rr = $2;
                        my $f1 = "$cf!";
                        $rr++;
                        my $f2 = $cc . $rr;
                        $field =~ s/$f1/$f2/g;
                    }
                }
            }

            set_field_value ($row_num, $col_letter, $field, "");
            $col_letter = get_next_field_letter ($col_letter);

            if ($max_field_num < get_field_num_from_field_letter ($col_letter))
            {
                $max_field_num = get_field_num_from_field_letter ($col_letter);
            }
        }
        $row_num++;
        $max_rows++;
    }

    $col_letter = "A";
    while ($block =~ s/^([^;\t]*)([;\t]|$)// && $block =~ m/./)
    {
        my $field = $1;
        set_field_value ($row_num, $col_letter, $field, "");
        $col_letter = get_next_field_letter ($col_letter);
        if ($max_field_num < get_field_num_from_field_letter ($col_letter))
        {
            $max_field_num = get_field_num_from_field_letter ($col_letter);
        }
    }
    $max_rows++;
    $show_formulas = 0;
}

sub add_price
{
    my $initial_price = $_ [0];
    my $field = $_ [1];

    $field =~ s/[\$,]//img;

    if ($field =~ m/^-(\d+)($|\.\d+)$/)
    {
        my $whole = $1;
        my $decimal = $2;
        $decimal =~ s/\.//;
        $decimal =~ s/^(\d\d)(\d+)/$1.$2/;
        $initial_price += -1 * ($whole*100 + $decimal);
    }
    elsif ($field =~ m/^(\d+)($|\.\d+)$/)
    {
        my $whole = $1;
        my $decimal = $2;
        $decimal =~ s/\.//;
        $decimal =~ s/^(\d\d)(\d+)/$1.$2/;
        $initial_price += $whole*100 + $decimal;
    }
    return $initial_price;
}

sub get_col_type
{
    my $col_letter = $_ [0];
    if ($col_letter =~ m/^\d+$/)
    {
        $col_letter =  get_field_letter_from_field_num ($col_letter);
    }
    return ($col_types {$col_letter});
}

sub set_col_type
{
    my $col_letter = $_ [0];
    my $col_type = $_ [1];
    $col_types {$col_letter} = $col_type;
}

sub get_col_header
{
    my $col_letter = $_ [0];
    if ($col_letter =~ m/^\d+$/)
    {
        $col_letter =  get_field_letter_from_field_num ($col_letter);
    }
    return ($csv_data {"$col_letter" . "1"});
}

sub get_col_name_of_number_type_col
{
    my $i = 0;
    for ($i = 0; $i < $max_field_num; $i++)
    {
        if (get_col_type ($i) eq "NUMBER" || get_col_type ($i) eq "PRICE")
        {
            my $ch = get_col_header ($i);
            if ($ch =~ m/.../)
            {
                return "%23" . get_col_header ($i);
            }
        }
    }
    return "%23NUM_COL";
}

sub get_num_of_col_header
{
    my $col_name = $_ [0];
    my $i = 0;
    for ($i = 0; $i < $max_field_num; $i++)
    {
        if (get_col_header ($i) eq $col_name)
        {
            return $i;
        }
    }
    return -1;
}

sub has_field_id
{
    my $field_val = $_ [0];
    my $orig_field_id = $_ [1];
    my $force_has_field = $_ [2];

    $field_val =~ s/:[A-Z]+\d+/:/;
    $field_val =~ s/[A-Z]+\d+://;
    $field_val =~ s/$orig_field_id//;
    if ($field_val =~ m/^=.*([A-Z]+\d+)/ || $force_has_field && $field_val =~ m/^.*([A-Z]+\d+)/)
    {
        my $field_id = $1;
        return $field_id;
    }
    return "";
}

sub get_row_num
{
    my $field_id = $_ [0];
    if ($field_id =~ m/(\d+)$/)
    {
        return $1;
    }
}

sub get_col_letter
{
    my $field_id = $_ [0];
    if ($field_id =~ m/^([A-Z]+)/)
    {
        return $1;
    }
}

sub calc_field_value
{
    my $field_val = $_ [0];
    my $orig_field_val = $_ [0];
    my $row_num = $_ [1];
    my $col_letter = $_ [2];
    my $iteration_count = $_ [3];
    my $force_calculation = $_ [4];
    if ($iteration_count > 10) { return "ERROR (can't compute)"; }

    if ($show_formulas)
    {
        return "SHOW_FORMULAS:" . $field_val;
    }

    $field_val = fix_up_field_vals ($field_val, "$col_letter$row_num", 0);

    if ($field_val =~ s/^=// || $force_calculation)
    {
        my $fv = excel_to_perl_calculation ($field_val, "$col_letter$row_num", $iteration_count);

        my $next_field_id = has_field_id ("=" . $fv, "$col_letter$row_num", $force_calculation);
        if ($next_field_id ne "")
        {
            return calc_field_value ("=" . $fv, $row_num, $col_letter, $iteration_count+1, 0);
        }

        if ($fv =~ m/^[<\(]dq\..*.dq[>\)]$/)
        {
            $fv =~ s/.dq./"/img;
            return $fv;
        }

        my $valid_calc = eval { $fv };
        if (!defined ($valid_calc))
        {
            if ($force_calculation)
            {
                return $field_val;
            }

            $fv = lc($fv);
            my $valid_calc = eval { $fv };
            if (!defined ($valid_calc))
            {
                return "ERROR ($fv invalid)";
            }
            my $valid_calc2 = eval { $valid_calc };

            if (!defined ($valid_calc2))
            {
                return "ERROR ($fv invalid)";
            }
            return $valid_calc;
        }
        $field_val = eval ($fv);
    }
    return $field_val;
}

sub set_field_value
{
    my $row_num = $_ [0];
    my $col_letter = $_ [1];
    my $new_val = $_ [2];
    my $modifier = $_ [3];

    if ($col_letter =~ m/^\d+$/)
    {
        $col_letter =  get_field_letter_from_field_num ($col_letter);
    }
    my $str = "$col_letter" . $row_num . $modifier;
    if (!defined ($csv_data {$str}))
    {
        $csv_data {$str} = $new_val;
    }
}

sub get_field_value
{
    my $row_num = $_ [0];
    my $col_letter = $_ [1];
    my $for_display = $_ [2];
    my $show_formulas = $_ [3];
    if ($col_letter =~ m/^\d+$/)
    {
        $col_letter =  get_field_letter_from_field_num ($col_letter);
    }

    my $field_id = "$col_letter" . $row_num;
    if (defined ($csv_data {$field_id}))
    {
        my $field_val = $csv_data {$field_id};
        my $calc_val = "";
        if (!defined ($calculated_data {$field_id}))
        {
            if ($csv_data {$field_id} =~ m/^=/)
            {
                my %new_each_element;
                %each_element = %new_each_element;
                $count = 0;
                $each_element_count = 0;
                breakdown_excel ($csv_data {$field_id}, 0);
                my $some_val = recreate_perl ($field_id);
                if ($some_val ne $calc_val)
                {
                    if ($calc_val eq "")
                    {
                         $calc_val = $some_val;
                    }
                }
            }
            else
            {
                $calc_val = $field_val;
            }
            $calculated_data {$field_id} = $calc_val;
        }
        $calc_val = $calculated_data {$field_id};
        if ($for_display == 1 && $show_formulas == 0 && $calc_val =~ m/^[-,\$\d\.]+$/ && $calc_val =~ m/^.+\..+$/)
        {
            my $c = sprintf("%.2f", $calc_val);
            return ($c);
        }
        elsif ($for_display == 1 && $show_formulas == 2)
        {
            if (!defined ($csv_data {$field_id . "_perl"}))
            {
                return $csv_data {$field_id};
            }
            return ($csv_data {$field_id . "_perl"});
        }
        elsif ($for_display == 1 && $show_formulas == 1)
        {
            if (!defined ($csv_data {$field_id . "_calc"}))
            {
                return "<font color=\"rebeccapurple\">$csv_data{$field_id}</font>";
            }
            return ($csv_data {$field_id . "_calc"} . "&nbsp;<font size=-1 color=\"darkgray\">$csv_data{$field_id}<\/font>");
        }
        return ($calc_val);
    }
    return ("");
}

sub simple_parentheses_zero_argument
{
    my $field_val = $_ [0];
    my $func = $_ [1];
    if ($field_val =~ m/^$func\(\s*\)/)
    {
        return 1;
    }
    return 0;
}
sub simple_parentheses_only_one_argument
{
    my $field_val = $_ [0];
    my $func = $_ [1];
    if ($field_val =~ m/^$func\([^(\|]+\)/)
    {
        return 1;
    }
    return 0;
}

sub simple_parentheses_only_two_arguments
{
    my $field_val = $_ [0];
    my $func = $_ [1];
    if ($field_val =~ m/^$func\([^(\|]*\|[^(\|]*?\)/)
    {
        return 1;
    }
    return 0;
}

sub simple_parentheses_only_three_arguments
{
    my $field_val = $_ [0];
    my $func = $_ [1];
    if ($field_val =~ m/^$func\([^(\|]+\|[^(\|]+\|[^(\|]+\)/)
    {
        return 1;
    }
    return 0;
}

sub simple_parentheses_many_arguments
{
    my $field_val = $_ [0];
    my $func = $_ [1];
    if ($field_val =~ m/^$func\(([^(\|]+\|){3,35}[^(\|]+\)/)
    {
        return 1;
    }
    return 0;
}

sub simple_parentheses_n_arguments
{
    my $field_val = $_ [0];
    my $func = $_ [1];
    if (simple_parentheses_only_one_argument ($field_val, $func))
    {
        return 1;
    }
    if (simple_parentheses_only_two_arguments ($field_val, $func))
    {
        return 1;
    }
    if (simple_parentheses_only_three_arguments ($field_val, $func))
    {
        return 1;
    }
    if (simple_parentheses_many_arguments ($field_val, $func))
    {
        return 1;
    }
    return 0;
}

sub breakdown_excel
{
    my $excel_function = $_ [0];
    my $iteration = $_ [1];

    if ($iteration == 0)
    {
        $each_element_count = 0;
        my %new_each_element;
        %each_element = %new_each_element;
    }
    if ($iteration > 50)
    {
        return;
    }
    my $i = 0;
    while ($excel_function =~ s/("[^"]*")/xXSTRING$each_element_count/)
    {
        $each_element {"xXSTRING$each_element_count"} = "$1<< xXSTRING$each_element_count";
        $each_element_count++;
        $i++;
    }

    $count ++;
    if ($count > 500)
    {
        return "giving up";
    }
    while ($excel_function =~ m/(([A-Z]+)\(.*)/)
    {
        my $test = $1;
        my $func = $2;
        #$test =~ s/\.XYZ\./(/;
        if (simple_parentheses_zero_argument ($test, $func))
        {
            $excel_function =~ s/($func\([^\)]*\))/xXNIL$each_element_count/;
            $each_element {"xXNIL$each_element_count"} = $1 . "<< xXNIL$each_element_count";
            $each_element_count++;
        }
        elsif (simple_parentheses_only_one_argument ($test, $func))
        {
            $excel_function =~ s/($func\([^\)]*\))/xXONE$each_element_count/;
            $each_element {"xXONE$each_element_count"} = $1 . "<< xXONE$each_element_count";
            $each_element_count++;
        }
        elsif (simple_parentheses_only_two_arguments ($test, $func))
        {
            $excel_function =~ s/($func\([^\|\)]*\|.*?\))/xXTWO$each_element_count/;
            $each_element {"xXTWO$each_element_count"} = $1 . "<< xXTWO$each_element_count";
            $each_element_count++;
        }
        elsif (simple_parentheses_only_three_arguments ($test, $func))
        {
            $excel_function =~ s/($func\([^\|\)]*\|[^\|\)]*\|.*?\))/xXTHREE$each_element_count/;
            $each_element {"xXTHREE$each_element_count"} = $1 . "<< xXTHREE$each_element_count";
            $each_element_count++;
        }
        elsif (simple_parentheses_many_arguments($test, $func))
        {
            $excel_function =~ s/($func\([^\|\)]*\|[^\|\)]*\|.*?\))/xXMANY$each_element_count/;
            $each_element {"xXMANY$each_element_count"} = $1 . "<< xXMANY$each_element_count";
            $each_element_count++;
        }
        else
        {
            $excel_function =~ s/$func\(/$func.XYZ./;
        }
    }
    if ($excel_function =~ m/\.XYZ\./)
    {
        $excel_function =~ s/\.XYZ\./(/g;
        return breakdown_excel ($excel_function, $iteration + 1);
    }
    $excel_function =~ s/^=//;
    $each_element {"ZZMAX"} = $excel_function;
    return $excel_function;
}

sub do_power_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((POWER)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_two_arguments ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\|(.+)\)/($1)**($2)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_concat_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/(CONCATENATE\(.*)/)
    {
        my $to_check = $1;
        if (simple_parentheses_only_two_arguments ($to_check, "CONCATENATE"))
        {
            if ($field_val =~ m/CONCATENATE\(([^\|]+?)\|([^\|]+?)\)/)
            {
                $field_val =~ s/CONCATENATE\(([^\|]+?)\|([^\|]+?)\)/fix_quotes ($1$2)/;
                $field_val =~ s/""/"/g;
                $field_val =~ s/""/"/g;
            }
            elsif ($field_val =~ m/CONCATENATE\(\s*\|([^\|]+?)\)/)
            {
                $field_val =~ s/CONCATENATE\(\s*\|([^\|]+?)\)/$1/;
                $field_val =~ s/""/"/g;
                $field_val =~ s/""/"/g;
            }
            elsif ($field_val =~ m/CONCATENATE\(([^\|]+?)\|\s*\)/)
            {
                $field_val =~ s/CONCATENATE\(([^\|]+?)\|\s*\)/$1/;
                $field_val =~ s/""/"/g;
                $field_val =~ s/""/"/g;
            }
            elsif ($field_val =~ m/CONCATENATE\(\s*\|\s*\)/)
            {
                $field_val =~ s/CONCATENATE\(\s*\|\s*\)//;
                $field_val =~ s/""/"/g;
                $field_val =~ s/""/"/g;
            }
        }
        else
        {
            my $str;
            while ($field_val =~ m/CONCATENATE\(([^|]+?)(\||\))/)
            {
                $field_val =~ s/CONCATENATE\(([^|]+?)(\||\))/CONCATENATE(/;
                $str .= $1;                
            }
            $field_val = fix_quotes($str);
        }
        return $field_val;
    }
    return $field_val;
}

sub do_tax_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((TAX)\((.*)\))/)
    {
        my $to_check = $1;
        my $func = $2;
        my $num = $3;
        if (simple_parentheses_only_one_argument ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\)/perl_tax($1)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_audio_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((AUDIO)\((.*)\))/)
    {
        my $to_check = $1;
        my $func = $2;
        my $num = $3;
        if (simple_parentheses_only_one_argument ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\)/perl_audio($1)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_video_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((VIDEO)\((.*)\))/)
    {
        my $to_check = $1;
        my $func = $2;
        my $num = $3;
        if (simple_parentheses_only_one_argument ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\)/perl_video($1)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_image_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((IMAGE)\((.*)\))/)
    {
        my $to_check = $1;
        my $func = $2;
        my $num = $3;
        if (simple_parentheses_only_one_argument ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\)/perl_image($1)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_strcmp_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((STRCMP)\((.*)\))/)
    {
        my $to_check = $1;
        my $func = $2;
        my $num = $3;
        if (simple_parentheses_only_two_arguments ($to_check, "$func"))
        {
            if ($field_val =~ m/STRCMP\(([^\|]+?)\|([^\|]+?)\)/)
            {
                $field_val =~ s/$func\((.+)\|(.+)\)/perl_strcmp("$1","$2")/;
                return $field_val;
            }
            return $field_val;
        }
    }
    return $field_val;
}

sub do_money_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((MONEY)\((.*)\))/)
    {
        my $to_check = $1;
        my $func = $2;
        my $num = $3;
        if (simple_parentheses_only_one_argument ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\)/perl_money($1)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_today_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((TODAY)\((.*)\))/)
    {
        my $to_check = $1;
        my $func = $2;
        my $num = $3;
        if (simple_parentheses_zero_argument($to_check, "$func"))
        {
            $field_val =~ s/$func\(\)/perl_today()/;
            return $field_val;
        }
        else #if (simple_parentheses_only_one_argument($to_check, "$func"))
        {
            $field_val =~ s/$func\((.*)\)/perl_today($num)/;            
            return $field_val;
        }
    }
    return $field_val;
}

sub do_weekday_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((WEEKDAY)\((.*)\))/)
    {
        my $to_check = $1;
        my $func = $2;
        my $num = $3;
        if (simple_parentheses_zero_argument($to_check, "$func"))
        {
            $field_val =~ s/$func\(\)/perl_weekday()/;
            return $field_val;
        }
        else #if (simple_parentheses_only_one_argument($to_check, "$func"))
        {
            $field_val =~ s/$func\((.*)\)/perl_weekday($num)/;
            print ("zzzzzzzzzzzzzzz $field_val\n");
            return $field_val;
        }
    }
    return $field_val;
}

sub do_url_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((URL)\((.*)\))/)
    {
        my $to_check = $3;
        $to_check =~ s/\|/"."/g;
        $to_check =~ s/^/"/;
        $to_check =~ s/$/"/;
        $to_check =~ s/""/"/g;
        $to_check =~ s/""/"/g;
        $to_check =~ s/""/"/g;
        $field_val = "perl_url($to_check)";
        return $field_val;
    }
    return "URLGOESHERE";
}

sub perl_tax
{
    my $salary = $_ [0];

    if ($salary<18200)
    {
        return 0;
    }
    if ($salary<=45000)
    {
        return 0.16 * ($salary-18200);
    }
    if ($salary<=135000)
    {
        return 0.16 * (45000-18200)+0.30 * ($salary-45000);
    }
    if ($salary<=190000)
    {
        return 0.16 * (45000-18200)+0.30 * (135000-45000)+0.37 * ($salary-135000);
    }
    if ($salary>190000)
    {
        return 0.16 * (45000-18200)+0.30 * (135000-45000)+0.37 * (190000-135000)+0.45 * ($salary-190000);
    }
    return 0;
}

sub perl_audio
{
    my $audio_file = $_ [0];
    $audio_file =~ s/BACKSLASH/\\/img;
    my $audio_id = $audio_file;
    $audio_id =~ s/\W/_/g;
    $audio_id =~ s/__/_/g;
    $audio_id =~ s/__/_/g;
    $audio_id =~ s/__/_/g;
    my $audio_name = $audio_file;
    $audio_name =~ s/.*\///;
    return "Audio: $audio_name<br><audio id=\"audio_$audio_id\" controls=\"\" src=\"$audio_file\"></audio><button onclick=\"speed_$audio_id(1)\" type=\"button\">1x</button><button onclick=\"speed_$audio_id(1.5)\" type=\"button\">1.5x</button><button onclick=\"speed_$audio_id(2)\" type=\"button\">quick</button><script> function speed_$audio_id(val) { var x = document.getElementById(\"audio_$audio_id\"); x.playbackRate = val; }</script>";
}

sub perl_video
{
    my $video_file = $_ [0];
    $video_file =~ s/BACKSLASH/\\/img;
    my $video_type = $video_file;
    my $video_id = $video_file;
    $video_id =~ s/\W/_/g;
    $video_id =~ s/__/_/g;
    $video_id =~ s/__/_/g;
    $video_id =~ s/__/_/g;
    $video_type =~ s/^.*\.//;
    return "<video id=\"video_$video_id\" height=640 width=480 controls src=\"$video_file\" type=\"video\/$video_type\"></video>";
}

sub perl_image
{
    my $image_file = $_ [0];
    $image_file =~ s/BACKSLASH/\\/img;
    my $image_type = $image_file;
    my $image_id = $image_file;
    $image_id =~ s/\W/_/g;
    $image_id =~ s/__/_/g;
    $image_id =~ s/__/_/g;
    $image_id =~ s/__/_/g;
    $image_type =~ s/^.*\.//;
    my $image_name = $image_file;
    $image_name =~ s/.*\///;
    return "Image: $image_name<br><a href=\"\" onclick=\"window.open('$image_file','targetWindow', 'toolbar=no, location=no, status=no, menubar=no, scrollbars=yes, resizable=yes, width=1200px, height=800px, top=25px left=120px'); return false;\"><img height=350 width=250 src=\"$image_file\"/></a>";
}

sub perl_money
{
    my $amount = $_ [0];
    my $neg = "green";
    if (!is_number ($amount))
    {
        return $amount;
    }

    $amount =~ m/^([\+\-]|)(\d+)($|\.\d+)$/;
    my $dollars = $2;
    my $cents = $3;

    if ($amount =~ m/^-(\d+)($|\.\d+)/)
    {
        $amount =~ s/^-//;
        $neg = "red";
    }

    my $dollars;
    my $cents;
    if ($amount =~ m/^(\d+)($|\.\d+)/)
    {
        $dollars = $1;
        $cents = $2;
        if ($cents =~ m/^\.(\d\d)($|\d)/)
        {
            $cents = $1;
            my $round = $2;
            if ($round >= 5)
            {
                $cents++;
            }
            $cents = ".$cents";
        }
        elsif ($cents =~ m/^\.\d/)
        {
            $cents .= "0";
        }
        elsif ($cents =~ m/^$/)
        {
            $cents = ".00";
        }
        return "<font color=$neg><bold>\$$dollars$cents</bold></font>";
    }
    return $amount;
}

sub perl_strcmp
{
    my $str1 = $_ [0];
    my $str2 = $_ [1];

    if (lc ($str1) eq lc($str2)) { return "0"; }
    if ($str1 eq $str2) { return "0"; }
    if ($str1 > $str2) { return "1"; }
    return "-1";
}

sub perl_url
{
    my $input = $_ [0];
    $input =~ s/['"]//img;
    my $url = "<a href=\"https://" . $input . "\">URL</a>";
    $input =~ s/https:\/\/.*https:/https:/img;
    return $url;
}

sub perl_today
{
    my $adder = $_ [0];
    if ($adder =~ m/^$/)
    {
        $adder = 0;
    }
    my $t = time;
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($t + $adder * 24*3600);
    my $yyyymmdd = sprintf "%.4d%.2d%.2d", $year+1900, $mon+1, $mday;
    return $yyyymmdd;
}

sub perl_weekday
{
    # Give either today if it's a weekday or a day prior if it's not
    my $adder = $_ [0];
    if ($adder =~ m/^$/)
    {
        $adder = 0;
    }
    my $t = time;
    my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($t + $adder * 24*3600);
    if ($wday >= 1 && $wday <= 5)
    {
        my $yyyymmdd = sprintf "%.4d%.2d%.2d", $year+1900, $mon+1, $mday;
        return $yyyymmdd;
    }
    else
    {
        return perl_weekday ($adder+1);
    }
}

sub do_bold_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/(BOLD\(.*)/)
    {
        my $to_check = $1;
        if (simple_parentheses_only_two_arguments ($to_check, "BOLD"))
        {
            if ($field_val =~ m/BOLD\(([^\|]+?)\|([^\|]+?)\)/)
            {
                $field_val =~ s/BOLD\(([^\|]+?)\|([^\|]+?)\)/'<font size=+1 color=$2><b>$1<\/b><\/font>'/;
                $field_val =~ s/""/"/g;
                $field_val =~ s/""/"/g;
            }
        }
        return $field_val;
    }
    return $field_val;
}

sub fix_quotes
{
    my $str = $_ [0];
    while ($str =~ m/fix_quotes *\(([^)]*)\)/)
    {
        my $concat_str = $1;
        $concat_str =~ s/"//img;
        $concat_str =~ s/'//img;
        $str =~ s/fix_quotes *\(([^)]*)\)/$concat_str/;
    }
    $str =~ s/\)$//;
    $str =~ s/"/\\"/g;
    $str =~ s/'//g;
    return "\"$str\"";
}

sub do_mod_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((MOD)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_two_arguments ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\|(.+)\)/($1)%($2)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_days_between_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((DAYS)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_two_arguments ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\|(.+)\)/days($1,$2)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_absdays_between_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((ABSDAYS)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_two_arguments ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\|(.+)\)/absdays($1,$2)/;
            return $field_val;
        }
    }
    return $field_val;
}

# Return first date TO the second date.  If first date is ealier than second, returns positive.. otherwise negavtive
sub days
{
    my $date1 = $_ [0];
    my $date2 = $_ [1];
    my $dummy = 1;
    #my $d1 = DateTime->new(year => $1, month => $2, day => $3, hour => $dummy, minute => $dummy, second => $dummy, 'UTC');

    $date1 =~ m/^(\d\d\d\d)(\d\d)(\d\d)/;
    my $d1 = DateTime->new(
        year      => $1,
        month     => $2,
        day       => $3,
        hour      => $dummy,
        minute    => $dummy,
        second    => $dummy,
        time_zone => 'America/Chicago',
    );

    $date2 =~ m/^(\d\d\d\d)(\d\d)(\d\d)/;
    my $d2 = DateTime->new(
        year      => $1,
        month     => $2,
        day       => $3,
        hour      => $dummy,
        minute    => $dummy,
        second    => $dummy,
        time_zone => 'America/Chicago',
    );

    #my $dur = ($d1 > $d2 ? ($d1->subtract_datetime_absolute($d2)) : ($d2->subtract_datetime_absolute($d1)));

    my $days = $d1->delta_days($d2)->delta_days();
    if ($date1 > $date2)
    {
        return -$days;
    }
    return $days;
}

# Return first date TO the second date.  If first date is ealier than second, returns positive.. otherwise negavtive
sub absdays
{
    my $date1 = $_ [0];
    my $date2 = $_ [1];
    my $dummy = 1;
    #my $d1 = DateTime->new(year => $1, month => $2, day => $3, hour => $dummy, minute => $dummy, second => $dummy, 'UTC');

    $date1 =~ m/^(\d\d\d\d)(\d\d)(\d\d)/;
    my $d1 = DateTime->new(
        year      => $1,
        month     => $2,
        day       => $3,
        hour      => $dummy,
        minute    => $dummy,
        second    => $dummy,
        time_zone => 'America/Chicago',
    );

    $date2 =~ m/^(\d\d\d\d)(\d\d)(\d\d)/;
    my $d2 = DateTime->new(
        year      => $1,
        month     => $2,
        day       => $3,
        hour      => $dummy,
        minute    => $dummy,
        second    => $dummy,
        time_zone => 'America/Chicago',
    );

    #my $dur = ($d1 > $d2 ? ($d1->subtract_datetime_absolute($d2)) : ($d2->subtract_datetime_absolute($d1)));

    my $days = $d1->delta_days($d2)->delta_days();
    return abs($days);
}

sub do_int_expansion
{
    my $field_val = $_ [0];

    if ($field_val =~ m/((INT)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_two_arguments ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\|(.+)\)/(int($1\/$2))/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_max_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((MAX)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_two_arguments ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\|(.+)\)/($1 > $2 ? $1 : $2)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_standard_expansion
{
    my $field_val = $_ [0];
    my $func = $_ [1];
    my $upper_func = uc($_ [1]);
    if ($field_val =~ m/(($upper_func)\(.*)/)
    {
        my $to_check = $1;
        if (simple_parentheses_only_one_argument ($to_check, "$upper_func"))
        {
            $field_val =~ s/$upper_func\((.+)\)/$func($1)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_regex_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((REGEXPREPLACE)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_three_arguments ($to_check, "$func"))
        {
            $field_val =~ m/$func\(([^|]+)\|([^|]*?)\|([^|]*?)\)/;
            my $value = $1;
            my $first = $2;
            my $second = $3;
            $field_val =~ s/$func\(([^|]+)\|([^|]*?)\|([^|]*?)\)/eval {my \$v = "$value"; \$v =~ s\/$first\/$second\/; return \$v; }/g;
        }
    }
    return $field_val;
}

sub do_pmt_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((PMT)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_three_arguments ($to_check, "$func"))
        {
            $field_val =~ m/$func\(([^|]+)\|([^|]*?)\|([^|]*?)\)/;
            my $rate = $1;
            my $times = $2;
            my $principal = $3;
            my $str = "$principal * $rate * (((1+$rate) ** $times) / (((1+$rate) ** $times) - 1))";
            $field_val =~ s/$func\(([^|]+)\|([^|]*?)\|([^|]*?)\)/$str/g;
        }
    }
    return $field_val;
}

sub do_min_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((MIN)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_two_arguments ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\|(.+)\)/($1 <= $2 ? $1 : $2)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_left_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((LEFT)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_two_arguments ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\|(.+)\)/substr ($1, 0, $2)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_pi_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((PI)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_zero_argument ($to_check, "$func"))
        {

            $field_val =~ s/$func\(\s*\)/3.14159265358979/;
            return $field_val;
        }
    }
    return $field_val;
}

#sub new_do_sin_expansion
#{
#    my $field_val = $_ [0];
#    if ($field_val =~ m/((PI)\(.*)/)
#    {
#        my $to_check = $1;
#        my $func = $2;
#        if (simple_parentheses_only_two_arguments ($to_check, "$func"))
#        {
#            $field_val =~ s/$func\((.+)\|(.+)\)/substr ($1, 0, $2)/;
#            return $field_val;
#        }
#    }
#    return $field_val;
#}
#sub new_do_asin_expansion
#{
#    my $field_val = $_ [0];
#    if ($field_val =~ m/((PI)\(.*)/)
#    {
#        my $to_check = $1;
#        my $func = $2;
#        if (simple_parentheses_only_two_arguments ($to_check, "$func"))
#        {
#            $field_val =~ s/$func\((.+)\|(.+)\)/substr ($1, 0, $2)/;
#            return $field_val;
#        }
#    }
#    return $field_val;
#}
#sub new_do_cos_expansion
#{
#    my $field_val = $_ [0];
#    if ($field_val =~ m/((PI)\(.*)/)
#    {
#        my $to_check = $1;
#        my $func = $2;
#        if (simple_parentheses_only_two_arguments ($to_check, "$func"))
#        {
#            $field_val =~ s/$func\((.+)\|(.+)\)/substr ($1, 0, $2)/;
#            return $field_val;
#        }
#    }
#    return $field_val;
#}
#sub new_do_acos_expansion
#{
#    my $field_val = $_ [0];
#    if ($field_val =~ m/((PI)\(.*)/)
#    {
#        my $to_check = $1;
#        my $func = $2;
#        if (simple_parentheses_only_two_arguments ($to_check, "$func"))
#        {
#            $field_val =~ s/$func\((.+)\|(.+)\)/substr ($1, 0, $2)/;
#            return $field_val;
#        }
#    }
#    return $field_val;
#}

sub do_right_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((RIGHT)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_two_arguments ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\|(.+)\)/substr ($1, -$2, $2)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_textjoin_expansion
{
    my $field_val = $_ [0];
    my $orig_field_val = $_ [0];
    if ($field_val =~ m/((TEXTJOIN)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_three_arguments ($to_check, "$func"))
        {
            $field_val =~ m/$func\(([^|]+)\|([^|]*?)\|([^|]*?)\)/;
            my $delimiter = $1;
            my $cond = $2;
            my $text = $3;
            if ($cond eq "TRUE")
            {
                $field_val =~ s/$func\(([^|]+)\|([^|]*?)\|([^|]*?)\)/"$3"/g;
            }
            return $field_val;
        }
        if (simple_parentheses_many_arguments ($to_check, "$func"))
        {
            my $new_str = "\"\"";
            $field_val =~ s/$func\(([^|]+)\|([^|]*?)\|//;
            my $delimiter = $1;
            my $cond = $2;
            while ($field_val =~ s/^([^\(\|]+)\|//)
            {
                my $text = $1;
                $new_str = "$new_str . $delimiter . $text";
            }
            if ($field_val =~ s/^([^\(\|]+)\)//)
            {
                my $text = $1;
                $new_str = "$new_str . $delimiter . $text";
            }
            $new_str = "($new_str)";
        }
    }
    return $field_val;
}

sub do_len_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((LEN)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_one_argument ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\)/length($1)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_abs_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((ABS)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_one_argument ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\)/abs($1)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_rand_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((RAND)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_one_argument ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\)/rand($1)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_round_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((ROUND)\(.*)/)
    {
        my $to_check = $1;
        my $func = $2;
        if (simple_parentheses_only_one_argument ($to_check, "$func"))
        {
            $field_val =~ s/$func\((.+)\)/int($1+0.5)/;
            return $field_val;
        }
    }
    return $field_val;
}

sub do_if_expansion
{
    my $field_val = $_ [0];
    if ($field_val =~ m/((IF)\(.*)/)
    {
        my $to_check = $1;
        #if (simple_parentheses_only_three_arguments ($to_check, "IF"))
        {
            $field_val =~ m/IF\(([^|]+)\|([^|]*?)\|([^|]*?)\)/;
            my $condition = $1;
            my $true_bit = $2;
            my $false_bit = $3;
            $condition =~ s/([^=]+)=([^=]+)/$1==$2/g;
            $field_val =~ s/IF\(([^|]+)\|([^|]*?)\|([^|]*?)\)/($condition ? $true_bit : $false_bit)/;
        }
    }
    return $field_val;
}

my %field_letters;
$field_letters {"A"} = 0;
$field_letters {"B"} = 1;
$field_letters {"C"} = 2;
$field_letters {"D"} = 3;
$field_letters {"E"} = 4;
$field_letters {"F"} = 5;
$field_letters {"G"} = 6;
$field_letters {"H"} = 7;
$field_letters {"I"} = 8;
$field_letters {"J"} = 9;
$field_letters {"K"} = 10;
$field_letters {"L"} = 11;
$field_letters {"M"} = 12;
$field_letters {"N"} = 13;
$field_letters {"O"} = 14;
$field_letters {"P"} = 15;
$field_letters {"Q"} = 16;
$field_letters {"R"} = 17;
$field_letters {"S"} = 18;
$field_letters {"T"} = 19;
$field_letters {"U"} = 20;
$field_letters {"V"} = 21;
$field_letters {"W"} = 22;
$field_letters {"X"} = 23;
$field_letters {"Y"} = 24;
$field_letters {"Z"} = 25;

$field_letters {0} = "A";
$field_letters {1} = "B";
$field_letters {2} = "C";
$field_letters {3} = "D";
$field_letters {4} = "E";
$field_letters {5} = "F";
$field_letters {6} = "G";
$field_letters {7} = "H";
$field_letters {8} = "I";
$field_letters {9} = "J";
$field_letters {10} = "K";
$field_letters {11} = "L";
$field_letters {12} = "M";
$field_letters {13} = "N";
$field_letters {14} = "O";
$field_letters {15} = "P";
$field_letters {16} = "Q";
$field_letters {17} = "R";
$field_letters {18} = "S";
$field_letters {19} = "T";
$field_letters {20} = "U";
$field_letters {21} = "V";
$field_letters {22} = "W";
$field_letters {23} = "X";
$field_letters {24} = "Y";
$field_letters {25} = "Z";

sub get_field_num_from_field_letter
{
    my $letter = $_ [0];
    return ($field_letters {$letter});
}

sub get_field_letter_from_field_num
{
    my $num = $_ [0];
    return ($field_letters {$num});
}

sub get_next_field_letter
{
    my $letter = $_ [0];
    my $num = get_field_num_from_field_letter ($letter);
    return ($field_letters {$num + 1});
}

sub is_exponent
{
    my $field = $_ [0];
    if ($field =~ m/^([\+\-]|)\d+($|\.\d+)E([+\-]|)\d+$/i)
    {
        return 1;
    }
    return 0;
}

sub is_number
{
    my $field = $_ [0];
    if ($field =~ m/^([\+\-]|)\d+($|\.\d+)$/)
    {
        return 1;
    }
    if (is_exponent ($field))
    {
        return 1;
    }
    return 0;
}

sub is_small_exponent
{
    my $field = $_ [0];
    if ($field =~ m/^([\+\-]|)\d+($|\.\d+)E-\d+$/i)
    {
        return 1;
    }
    return 0;
}

sub is_price
{
    my $field = $_ [0];
    if ($field =~ m/^([\+\-]|)\$\d+($|\.\d+)$/)
    {
        return 1;
    }
    return 0;
}

sub is_date
{
    my $field = $_ [0];
    if ($field =~ m/^\d\d\d\d\d\d\d\d$/ || $field =~ m/^\d\d\d\d[\/]\d\d[\/]\d\d$/ || $field =~ m/^\d\d\d\d[\/]\d\d[\/]\d$/ || $field =~ m/^\d\d\d\d[\/]\d[\/]\d\d$/ || $field =~ m/^\d\d\d\d[\/]\d[\/]\d$/ || $field =~ m/^\d\d[\/]\d\d[\/]\d\d$/ || $field =~ m/^\d\d[\/]\d\d[\/]\d$/ || $field =~ m/^\d\d[\/]\d[\/]\d\d$/ || $field =~ m/^\d\d[\/]\d[\/]\d$/ || $field =~ m/^\d\d[\/]\d\d[\/]\d\d$/ || $field =~ m/^\d[\/]\d\d[\/]\d\d$/ || $field =~ m/^\d\d[\/]\d[\/]\d\d$/ || $field =~ m/^\d[\/]\d[\/]\d\d$/ || $field =~ m/^\d\d[\/]\d\d[\/]\d\d\d\d$/ || $field =~ m/^\d[\/]\d\d[\/]\d\d\d\d$/ || $field =~ m/^\d\d[\/]\d[\/]\d\d\d\d$/ || $field =~ m/^\d[\/]\d[\/]\d\d\d\d$/)
    {
        return 1;
    }
    return 0;
}

sub fix_date
{
    my $field = $_ [0];

    if ($field =~ m/^\d\d\d\d[\/]\d\d[\/]\d\d$/)
    {
        $field =~ m/^(\d\d\d\d)[\/](\d\d)[\/](\d\d)$/;
        return "$1" . "$2" . "0$3";
    }
    elsif ($field =~ m/^\d\d\d\d[\/]\d\d[\/]\d$/)
    {
        $field =~ m/^(\d\d\d\d)[\/](\d\d)[\/](\d)$/;
        return ("$1" . "$2" . "0$3");
    }
    elsif ($field =~ m/^\d\d\d\d[\/]\d[\/]\d\d$/)
    {
        $field =~ m/^(\d\d\d\d)[\/](\d)[\/](\d\d)$/;
        return ("$1" . "0$2" . "$3");
    }
    elsif ($field =~ m/^\d\d[\/]\d\d[\/]\d\d\d\d$/)
    {
        $field =~ m/^(\d\d)[\/](\d\d)[\/](\d\d\d\d)$/;
        return ("$3" . "$2" . "$1");
    }
    elsif ($field =~ m/^\d[\/]\d\d[\/]\d\d\d\d$/)
    {
        $field =~ m/^(\d)[\/](\d\d)[\/](\d\d\d\d)$/;
        reutrn ("$3" . "$2" . "0$1");
    }
    elsif ($field =~ m/^\d\d[\/]\d[\/]\d\d\d\d$/)
    {
        $field =~ m/^(\d\d)[\/](\d)[\/](\d\d\d\d)$/;
        return ("$3" . "0$2" . "$1");
    }
    elsif ($field =~ m/^\d[\/]\d[\/]\d\d\d\d$/)
    {
        $field =~ m/^(\d)[\/](\d)[\/](\d\d\d\d)$/;
        return ("$3" . "0$2" . "0$1");
    }
    return ("");
}

sub do_sum_expansion
{
    my $field_val = $_ [0];

    if ($field_val =~ m/(.*)(SUM\(([A-Z])(\d+):([A-Z])(\d+))/)
    {
        my $first_bit = $1;
        my $overall = $2;
        my $first_col = $3;
        my $first_num = $4;
        my $second_col = $5;
        my $second_num = $6;

        my $fc_num = get_field_num_from_field_letter ($first_col);
        my $sc_num = get_field_num_from_field_letter ($second_col);
        my $sum_str = "";
        my $i = $fc_num;
        my $j = $first_num;
        while ($i <= $sc_num)
        {
            while ($j <= $second_num)
            {
                my $cv = get_field_value ($j, get_field_letter_from_field_num ($i), 0, $show_formulas);
                if (is_number ($cv))
                {
                    $sum_str .= "$cv+";
                }
                else
                {
                    #$sum_str .= get_field_letter_from_field_num ($i) . "$j+";
                }
                $j++;
            }
            $j = $first_num;
            $i++;
        }
        $sum_str =~ s/\+$//;
        $sum_str =~ s/\+\+/+/img;
        $sum_str .= "";
        return $sum_str;
    }
    return $field_val;
}

sub fix_up_field_vals
{
    my $field_val = $_ [0];
    my $orig_field_val = $_ [0];
    my $field_id = $_ [1];
    my $force_calculation = $_ [2];

    my $next_field_id = has_field_id ($field_val, $field_id, 1);
    while ($next_field_id ne "")
    {
        if ($next_field_id eq $field_id) { return "ERROR (self-ref)"; }
        my $rn = get_row_num ($next_field_id);
        my $cl = get_col_letter ($next_field_id);
        my $that_field_val = get_field_value ($rn, $cl, 0, $show_formulas);
        $field_val =~ s/$next_field_id/$that_field_val/;
        $next_field_id = has_field_id ($field_val, $field_id, 1);
    }
    $field_val =~ s/\+\+/+/img;
    $field_val =~ s/\+$//img;
    return $field_val;
}

sub perl_expansions
{
    my $str = $_ [0];

    if ($str =~ m/SUM\(/)
    {
        $str = do_sum_expansion ($str);
    }
    if ($str =~ m/CONCATENATE\(/)
    {
        $str = do_concat_expansion ($str);
    }
    if ($str =~ m/BOLD\(/)
    {
        $str = do_bold_expansion ($str);
    }
    if ($str =~ m/POWER\(/)
    {
        $str = do_power_expansion ($str);
    }
    if ($str =~ m/MOD\(/)
    {
        $str = do_mod_expansion ($str);
    }
    if ($str =~ m/INT\(/)
    {
        $str = do_int_expansion ($str);
    }
    if ($str =~ m/MAX\(/)
    {
        $str = do_max_expansion ($str);
    }
    if ($str =~ m/PMT\(/)
    {
        $str = do_pmt_expansion ($str);
    }
    if ($str =~ m/SQRT\(/)
    {
        $str = do_standard_expansion ($str, "sqrt");
    }
    if ($str =~ m/REGEXPREPLACE\(/)
    {
        $str = do_regex_expansion ($str);
    }
    if ($str =~ m/MIN\(/)
    {
        $str = do_min_expansion ($str);
    }
    if ($str =~ m/LEFT\(/)
    {
        $str = do_left_expansion ($str);
    }
    if ($str =~ m/RIGHT\(/)
    {
        $str = do_right_expansion ($str);
    }
    if ($str =~ m/TEXTJOIN\(/)
    {
        $str = do_textjoin_expansion ($str);
    }
    if ($str =~ m/PI\(\)/)
    {
        $str = do_pi_expansion ($str);
    }
    if ($str =~ m/IF\(/)
    {
        $str = do_if_expansion ($str);
    }
    if ($str =~ m/ABS\(/)
    {
        $str = do_abs_expansion ($str);
    }
    if ($str =~ m/RAND\(/)
    {
        $str = do_rand_expansion ($str);
    }
    if ($str =~ m/ROUND\(/)
    {
        $str = do_round_expansion ($str);
    }
    if ($str =~ m/ABSDAYS\(/)
    {
        $str = do_absdays_between_expansion ($str);
    }
    if ($str =~ m/DAYS\(/)
    {
        $str = do_days_between_expansion ($str);
    }
    if ($str =~ m/TAX\(/)
    {
        $str = do_tax_expansion ($str);
    }
    if ($str =~ m/AUDIO\(/)
    {
        $str = do_audio_expansion ($str);
    }
    if ($str =~ m/VIDEO\(/)
    {
        $str = do_video_expansion ($str);
    }
    if ($str =~ m/IMAGE\(/)
    {
        $str = do_image_expansion ($str);
    }
    if ($str =~ m/STRCMP\(/)
    {
        $str = do_strcmp_expansion ($str);
    }
    if ($str =~ m/URL\(/)
    {
        $str = do_url_expansion ($str);
    }
    if ($str =~ m/MONEY\(/)
    {
        $str = do_money_expansion ($str);
    }
    if ($str =~ m/TODAY\(/)
    {
        $str = do_today_expansion ($str);
    }
    if ($str =~ m/WEEKDAY\(/)
    {
        $str = do_weekday_expansion ($str);
    }

    # General cleanup..
    $str =~ s/"xXSTRING(\d+)"/xXSTRING$1/img;
    return $str;
}

sub recreate_perl
{
    my $field_id = $_ [0];
    my $str;
    my $k;
    foreach $k (sort keys (%each_element))
    {
        my $str = $each_element {$k};
        $SELF_ELEMENT = $k;
        $str = perl_expansions ($str);
        $each_element {$k} = $str;
    }

    foreach $k (sort keys (%each_element))
    {
        my $str = $each_element {$k};
        $str =~ s/<< .*//;
        while ($str =~ m/(xX[A-Z]+\d+)/)
        {
            my $k2 = $1;
            my $str2 = $each_element{$k2};
            $str2 =~ s/<< .*//;
            $str =~ s/$k2/$str2/;
        }
        $str = perl_expansions ($str);
        $str = fix_up_field_vals ($str, $field_id, 0);
        $each_element {$k} = $str;
        my $xx;

        if ($str =~ m/fix_quotes/)
        {
            $str = fix_quotes ($str);
        }

        print ("$str\n");
        # Print a value into a variable as read from STDOUT that eval prints out
        my $output;
        open (my $outputFH, '>', \$output) or die;
        my $oldFH = select $outputFH;
        eval ("print ($str);");
        select $oldFH;
        close $outputFH;

        if ($k =~ m/xXSTRING/)
        {
            $output = $str;
        }

        if ($k eq "ZZMAX")
        {
            my $col_letter = get_col_letter ($field_id);
            my $row_num = get_row_num ($field_id);
            set_field_value ($row_num, $col_letter, $str, "_perl");
            return $output;
        }
    }
}

sub get_graph_html
{
    my $graph_html = "";
    my $col = $_ [0];
    my $col_name = $_ [1];

    # graph_counts
    my $graph_counts = 0;
    if ($col == -1)
    {
        $graph_counts = 1;
    }

    # graph_totals
    my $graph_totals = 0;
    if ($col == -2)
    {
        $graph_totals = 1;
    }

    $graph_html .= "<html>\n";
    $graph_html .= "<head>\n";
    $graph_html .= "<meta charset=\"UTF-8\">\n";
    $graph_html .= "<title>Graph Data</title>\n";
    $graph_html .= "<link rel=\"stylesheet\" href=\"https://cdnjs.cloudflare.com/ajax/libs/normalize/5.0.0/normalize.min.css\">\n";
    $graph_html .= "<link rel='stylesheet' href='https://fonts.googleapis.com/css?family=Khand'>\n";
    $graph_html .= "    <style>\n";
    $graph_html .= "        * {\n";
    $graph_html .= "        box-sizing: border-box;\n";
    $graph_html .= "        padding: 0;\n";
    $graph_html .= "        margin: 0;\n";
    $graph_html .= "        }\n";
    $graph_html .= "        body {\n";
    $graph_html .= "        margin: 50px auto;\n";
    $graph_html .= "        font-family: \"Khand\";\n";
    $graph_html .= "        font-size: 1.2em;\n";
    $graph_html .= "        text-align: center;\n";
    $graph_html .= "        }\n";
    $graph_html .= "        ul {\n";
    $graph_html .= "        padding-top: 20px;\n";
    $graph_html .= "        display: flex;\n";
    $graph_html .= "        gap: 2rem;\n";
    $graph_html .= "        }\n";
    $graph_html .= "        li {\n";
    $graph_html .= "        margin: 0.5rem 0;\n";
    $graph_html .= "        }\n";
    $graph_html .= "        legend {\n";
    $graph_html .= "        margin: 0 auto;\n";
    $graph_html .= "        }\n";
    $graph_html .= "    </style>\n";
    $graph_html .= "<style> table { border-collapse: collapse; } table.center { margin-left: auto; margin-right: auto; } td, th { border: 1px solid #dddddd; text-align: left; padding: 8px; } tr:nth-child(even) { background-color: #efefef; } </style>\n";
    $graph_html .= "<script>\n";
    $graph_html .= "if (document.location.search.match (/type=embed/gi)) {\n";
    $graph_html .= "    window.parent.postMessage (\"resize\", \"*\");\n";
    $graph_html .= "}\n";
    $graph_html .= "</script>\n";
    $graph_html .= "</head>\n";
    $graph_html .= "<body translate=\"no\" >\n";
    $graph_html .= "<h1>Graph for column $col_name</h1><br>\n";
    $graph_html .= "<canvas id=\"graph_canvas\" style=\"background: white;\"></canvas>\n";
    $graph_html .= "<legend for=\"graph_canvas\"></legend>\n";
    $graph_html .= "<script id=\"rendered-js\" >\n";
    $graph_html .= "var canvas = document.getElementById (\"graph_canvas\");\n";
    $graph_html .= "canvas.width = 1200;\n";
    $graph_html .= "canvas.height = 600;\n";
    $graph_html .= "var ctx = canvas.getContext (\"2d\");\n";
    $graph_html .= "var min_gridy;\n";
    $graph_html .= "var max_gridy;\n";
    $graph_html .= "var barSize;\n";
    $graph_html .= "function drawActualLine (ctx, startX, startY, endX, endY, color) {\n";
    $graph_html .= "    ctx.save ();\n";
    $graph_html .= "    ctx.strokeStyle = color;\n";
    $graph_html .= "    ctx.beginPath ();\n";
    $graph_html .= "    ctx.moveTo (startX, startY);\n";
    $graph_html .= "    ctx.lineTo (endX, endY);\n";
    $graph_html .= "    ctx.stroke ();\n";
    $graph_html .= "    ctx.restore ();\n";
    $graph_html .= "}\n";
    $graph_html .= "function drawLine (ctx, startX, startY, endX, endY, color, options, canvas) {\n";
    $graph_html .= "    startX += options.padding;\n";
    $graph_html .= "    startY += canvas.height - options.padding;\n";
    $graph_html .= "    endX += options.padding + 2;\n";
    $graph_html .= "    endY += canvas.height - options.padding;\n";
    $graph_html .= "    ctx.save ();\n";
    $graph_html .= "    ctx.strokeStyle = color;\n";
    $graph_html .= "    ctx.beginPath ();\n";
    $graph_html .= "    ctx.moveTo (startX, startY);\n";
    $graph_html .= "    ctx.lineTo (endX, endY);\n";
    $graph_html .= "    ctx.stroke ();\n";
    $graph_html .= "    ctx.restore ();\n";
    $graph_html .= "}\n";
    $graph_html .= "function drawSquare (ctx, startX, startY, width, color, options, canvas) \n";
    $graph_html .= "{\n";
    $graph_html .= "    ctx.save ();\n";
    $graph_html .= "    ctx.fillStyle = color;\n";
    $graph_html .= "    ctx.fillRect (startX, startY, width, width);\n";
    $graph_html .= "    ctx.restore ();\n";
    $graph_html .= "}\n";
    $graph_html .= "function drawBar (ctx, upperLeftCornerX, upperLeftCornerY, width, height, color)\n";
    $graph_html .= "{\n";
    $graph_html .= "    ctx.save ();\n";
    $graph_html .= "    ctx.fillStyle = color;\n";
    $graph_html .= "    ctx.fillRect (upperLeftCornerX, upperLeftCornerY, width, height);\n";
    $graph_html .= "    ctx.restore ();\n";
    $graph_html .= "}\n";
    $graph_html .= "class BarChart \n";
    $graph_html .= "{\n";
    $graph_html .= "    constructor (options) {\n";
    $graph_html .= "        this.options = options;\n";
    $graph_html .= "        this.canvas = options.canvas;\n";
    $graph_html .= "        this.ctx = this.canvas.getContext (\"2d\");\n";
    $graph_html .= "        this.titleOptions = options.titleOptions;\n";
    $graph_html .= "        this.minValue = Math.min (...Object.values (this.options.data));\n";
    $graph_html .= "        this.maxValue = Math.max (...Object.values (this.options.data));\n";
    $graph_html .= "        this.maxValue += 1;\n";
    $graph_html .= "        this.total_span = (this.maxValue + this.minValue);\n";
    $graph_html .= "        if (this.maxValue - this.minValue > this.total_span)\n";
    $graph_html .= "        {\n";
    $graph_html .= "            this.total_span = (this.maxValue - this.minValue);\n";
    $graph_html .= "        }\n";
    $graph_html .= "        this.multiplier = (options.canvas.height - options.padding * 2) / this.total_span;\n";
    $graph_html .= "    }\n";
    $graph_html .= "    drawGridLines () {\n";
    $graph_html .= "        var canvasActualHeight = this.canvas.height - this.options.padding * 2;\n";
    $graph_html .= "        var canvasActualWidth = this.canvas.width - this.options.padding * 2;\n";
    $graph_html .= "        var gridValue = this.minValue;\n";
    $graph_html .= "        max_gridy = 0;\n";
    $graph_html .= "        min_gridy = 10000000000;\n";
    $graph_html .= "        this.grid_jump = this.total_span / 12;\n";
    $graph_html .= "        while (gridValue <= this.maxValue) {\n";
    $graph_html .= "            var gridY = canvasActualHeight * (1 - (gridValue - this.minValue) / this.total_span) + this.options.padding;\n";
    $graph_html .= "            if (max_gridy < gridY) { max_gridy  = gridY; }\n";
    $graph_html .= "            if (min_gridy > gridY) { min_gridy  = gridY; }\n";
    $graph_html .= "            drawActualLine (this.ctx, 0, gridY, this.canvas.width, gridY, this.options.gridColor);\n";
    $graph_html .= "            // Writing grid markers\n";
    $graph_html .= "            this.ctx.save ();\n";
    $graph_html .= "            this.ctx.fillStyle = \"black\";\n";
    $graph_html .= "            this.ctx.textBaseline = \"bottom\";\n";
    $graph_html .= "            this.ctx.font = \"bold 10px Arial\";\n";
    $graph_html .= "            this.ctx.fillText (gridValue, 0, gridY - 5);\n";
    $graph_html .= "            this.ctx.restore ();\n";
    $graph_html .= "            gridValue += this.grid_jump;\n";
    $graph_html .= "        }\n";
    $graph_html .= "        min_gridy = canvasActualHeight * (1 - gridValue / this.maxValue) + this.options.padding;\n";
    $graph_html .= "        drawActualLine (this.ctx, 25, min_gridy, 25, max_gridy, \"red\");\n";
    $graph_html .= "    }\n";
    $graph_html .= "    getBar = function(x, y) {\n";
    $graph_html .= "        var canvasActualHeight = this.canvas.height - this.options.padding * 2;\n";
    $graph_html .= "        var canvasActualWidth = this.canvas.width - this.options.padding * 2;\n";
    $graph_html .= "        var barIndex = 0;\n";
    $graph_html .= "        var numberOfBars = Object.keys (this.options.data).length;\n";
    $graph_html .= "        barSize = canvasActualWidth / numberOfBars;\n";
    $graph_html .= "        var values = Object.values (this.options.data);\n";
    $graph_html .= "        \n";
    $graph_html .= "        for (let thekey of Object.keys (this.options.data)) {\n";
    $graph_html .= "            if (x > this.options.padding + barIndex * barSize && x < this.options.padding + (barIndex+1) * barSize)\n";
    $graph_html .= "            {\n";
    $graph_html .= "                return thekey;\n";
    $graph_html .= "            }\n";
    $graph_html .= "            barIndex++;\n";
    $graph_html .= "        }\n";
    $graph_html .= "        return \"\";\n";
    $graph_html .= "    }\n";
    $graph_html .= "    getKey = function(searchVal) {\n";
    $graph_html .= "        var barIndex = 0;\n";
    $graph_html .= "        for (let thekey of Object.keys (this.options.data)) {\n";
    $graph_html .= "            if (thekey == searchVal)\n";
    $graph_html .= "            {\n";
    $graph_html .= "                return barIndex;\n";
    $graph_html .= "            }\n";
    $graph_html .= "            barIndex++;\n";
    $graph_html .= "        }\n";
    $graph_html .= "        return 0;\n";
    $graph_html .= "    }\n";
    $graph_html .= "    getBarValue = function(x, y) {\n";
    $graph_html .= "        var canvasActualHeight = this.canvas.height - this.options.padding * 2;\n";
    $graph_html .= "        var canvasActualWidth = this.canvas.width - this.options.padding * 2;\n";
    $graph_html .= "        var barIndex = 0;\n";
    $graph_html .= "        var numberOfBars = Object.keys (this.options.data).length;\n";
    $graph_html .= "        barSize = canvasActualWidth / numberOfBars;\n";
    $graph_html .= "        var values = Object.values (this.options.data);\n";
    $graph_html .= "        \n";
    $graph_html .= "        for (let thekey of Object.keys (this.options.data)) {\n";
    $graph_html .= "            if (x > this.options.padding + barIndex * barSize && x < this.options.padding + (barIndex+1) * barSize)\n";
    $graph_html .= "            {\n";
    $graph_html .= "                var reg = /.*\\((.+)\\)/;\n";
    $graph_html .= "                if (thekey.match(reg))\n";
    $graph_html .= "                {\n";
    $graph_html .= "                    return thekey.match(reg);\n";
    $graph_html .= "                }\n";
    $graph_html .= "                return thekey;\n";
    $graph_html .= "            }\n";
    $graph_html .= "            barIndex++;\n";
    $graph_html .= "        }\n";
    $graph_html .= "        return \"\";\n";
    $graph_html .= "    }\n";
    $graph_html .= "    drawBars () {\n";
    $graph_html .= "        var canvasActualHeight = this.canvas.height - this.options.padding * 2;\n";
    $graph_html .= "        var canvasActualWidth = this.canvas.width - this.options.padding * 2;\n";
    $graph_html .= "        var barIndex = 0;\n";
    $graph_html .= "        var numberOfBars = Object.keys (this.options.data).length;\n";
    $graph_html .= "        barSize = canvasActualWidth / numberOfBars;\n";
    $graph_html .= "        var values = Object.values (this.options.data);\n";
    $graph_html .= "        var oldBarHeight = 0;\n";
    $graph_html .= "        var barHeight = 0;\n";
    $graph_html .= "        for (let val of values) {\n";
    $graph_html .= "            oldBarHeight = barHeight;\n";
    $graph_html .= "            barHeight = Math.round (canvasActualHeight * (val - this.minValue) / (this.total_span));\n";
    $graph_html .= "            drawLine (this.ctx, (-0.5 + barIndex) * barSize,  -1*oldBarHeight , (0.5+barIndex) * barSize, -1*barHeight , \"skyblue\", this.options, this.canvas);\n";
    $graph_html .= "            barIndex++;\n";
    $graph_html .= "        }\n";
    $graph_html .= "    }\n";
    $graph_html .= "    drawLabel () {\n";
    $graph_html .= "        this.ctx.save ();\n";
    $graph_html .= "        this.ctx.textBaseline = \"bottom\";\n";
    $graph_html .= "        this.ctx.textAlign = this.titleOptions.align;\n";
    $graph_html .= "        this.ctx.fillStyle = this.titleOptions.fill;\n";
    $graph_html .= "        this.ctx.font = \`\${this.titleOptions.font.weight} \${this.titleOptions.font.size} \${this.titleOptions.font.family}`;\n";
    $graph_html .= "        let xPos = this.canvas.width / 2;\n";
    $graph_html .= "        if (this.titleOptions.align == \"left\") {\n";
    $graph_html .= "            xPos = 10;\n";
    $graph_html .= "        }\n";
    $graph_html .= "        if (this.titleOptions.align == \"right\") {\n";
    $graph_html .= "            xPos = this.canvas.width - 10;\n";
    $graph_html .= "        }\n";
    $graph_html .= "        this.ctx.fillText (this.options.seriesName, xPos, this.canvas.height);\n";
    $graph_html .= "        this.ctx.restore ();\n";
    $graph_html .= "    }\n";
    $graph_html .= "    draw () {\n";
    $graph_html .= "        this.drawGridLines ();\n";
    $graph_html .= "        this.drawBars ();\n";
    $graph_html .= "        this.drawLabel ();\n";
    $graph_html .= "    }\n";
    $graph_html .= "}\n";
    $graph_html .= "var myBarchart = new BarChart (\n";
    $graph_html .= "    {\n";
    $graph_html .= "        canvas: canvas,\n";
    $graph_html .= "        seriesName: \"Cell Values\",\n";
    $graph_html .= "        padding: 50,\n";
    $graph_html .= "        gridStep: 10,\n";
    $graph_html .= "        gridColor: \"lightgrey\",\n";

    $graph_html .= "        data: {";
    my $i;
    if ($graph_counts == 0 && $graph_totals == 0)
    {
        for ($i = 2; $i < $max_rows; $i++)
        {
            my $x = get_field_value ($i, $col, 1, $show_formulas);
            $x =~ s/^$/0/;
            $x =~ s/,//g;
            $x =~ s/\$//g;
            $x =~ s/^ *$/0/g;
            $graph_html .= "\"Row $i,Col $col ($x)\":$x,";
        }
    }
    elsif ($graph_counts == 1 || $graph_totals == 1)
    {
        my $k;
        foreach $k (sort keys (%meta_data))
        {
            if ($k =~ m/_count/ && $graph_counts)
            {
                my $x = $meta_data {$k};
                $x =~ s/^$/0/;
                $x =~ s/,//g;
                $x =~ s/\$//g;
                $x =~ s/[^0-9\.]//g;
                $x =~ s/^ *$/0/g;
                $graph_html .= "\"Group $k ($x)\":$x,";
            }
            elsif ($k =~ m/_total/ && $graph_totals)
            {
                my $x = $meta_data {$k};
                $x =~ s/^$/0/;
                $x =~ s/,//g;
                $x =~ s/\$//g;
                $x =~ s/[^0-9\.\-]//g;
                $x =~ s/^ *$/0/g;
                $graph_html .= "\"Group $k ($x)\":$x,";
            }
        }
    }
    $graph_html .= "\"DONE\": 0 },\n";

    # Print colors line
    $graph_html .= "        colors: [";
    for ($i = 1; $i < $max_rows; $i++)
    {
        $graph_html .= "\"\#fbfbab\",";
    }
    $graph_html .= "],\n";

    $graph_html .= "        titleOptions: { align: \"center\", fill: \"black\", font: { weight: \"bold\", size: \"18px\", family: \"Lato\" } } \n";
    $graph_html .= "    }\n";
    $graph_html .= ");\n";
    $graph_html .= "myBarchart.draw ();\n";
    $graph_html .= "</script>\n";
    $graph_html .= "<canvas id=\"canvas_info\" style=\"background: skyblue;\"></canvas>\n";
    $graph_html .= "<script>\n";
    $graph_html .= "var canvas_info = document.getElementById(\"canvas_info\");\n";
    $graph_html .= "canvas_info.width = 900;\n";
    $graph_html .= "canvas_info.height = 100;\n";
    $graph_html .= "var graph_canvas = document.getElementById(\"graph_canvas\");\n";
    $graph_html .= "var ctx = canvas_info.getContext(\"2d\");\n";
    $graph_html .= "var graph_ctx = graph_canvas.getContext(\"2d\");\n";
    $graph_html .= "ctx.font = \"bold 20px Arial\";\n";
    $graph_html .= "var cw = graph_canvas.width;\n";
    $graph_html .= "var ch = graph_canvas.height;\n";
    $graph_html .= "function reOffset() {\n";
    $graph_html .= "  var BB = graph_canvas.getBoundingClientRect();\n";
    $graph_html .= "  offsetX = BB.left;\n";
    $graph_html .= "  offsetY = BB.top;\n";
    $graph_html .= "}\n";
    $graph_html .= "var offsetX, offsetY;\n";
    $graph_html .= "reOffset();\n";
    $graph_html .= "window.onscroll = function (e) {\n";
    $graph_html .= "  reOffset();\n";
    $graph_html .= "};\n";
    $graph_html .= "window.onresize = function (e) {\n";
    $graph_html .= "  reOffset();\n";
    $graph_html .= "};\n";
    $graph_html .= "graph_canvas.addEventListener(\"mousemove\", handleMouseMove, false);\n";
    $graph_html .= "var oldmouseX;\n";
    $graph_html .= "var oldY;\n";
    $graph_html .= "function handleMouseMove(e) {\n";
    $graph_html .= "    e.preventDefault();\n";
    $graph_html .= "    e.stopPropagation();\n";
    $graph_html .= "    mouseX = parseInt(e.clientX - offsetX);\n";
    $graph_html .= "    mouseY = parseInt(e.clientY - offsetY);\n";
    $graph_html .= "    ctx.clearRect(0, 0, cw, ch);\n";
    $graph_html .= "    var bar = myBarchart.getBar (mouseX, mouseY);\n";
    $graph_html .= "    ctx.fillText(bar, 50, 50);\n";
    $graph_html .= "    graph_ctx.clearRect(0, 0, 55, 55);\n";
    $graph_html .= "    var barVal = myBarchart.getBarValue (mouseX, mouseY);\n";
    $graph_html .= "    drawSquare (graph_ctx, oldmouseX, oldY, 10, \"white\", null, null); \n";
    $graph_html .= "    drawSquare (graph_ctx, mouseX, graph_canvas.height - myBarchart.multiplier * (barVal[1] - myBarchart.minValue) - myBarchart.options.padding, 5, \"darkorange\", null, null);\n";
    $graph_html .= "    oldmouseX = mouseX;\n";
    $graph_html .= "    oldY = graph_canvas.height - myBarchart.multiplier * (barVal[1] - myBarchart.minValue) - myBarchart.options.padding;\n";
    $graph_html .= "    myBarchart.draw ();\n";
    $graph_html .= "}\n";
    $graph_html .= "</script>\n";
    $graph_html .= "</table>\n";
    $graph_html .= "</body>\n";
    $graph_html .= "</html>\n";
    return $graph_html;
}

sub max
{
    my ($max, @vars) = @_;
    for (@vars) {
        $max = $_ if $_ > $max;
    }
    return $max;
}

sub get_3dgraph_html
{
    my $shape_data = $_ [0];
    my $title = $_ [1];
    my $max_x = $_ [2];
    my $min_x = $_ [3];
    my $max_y = $_ [4];
    my $min_y = $_ [5];
    my $max_z = $_ [6];
    my $min_z = $_ [7];
    my $world_x = $_ [8];
    my $world_y = $_ [9];
    my $world_z = $_ [10];
    my $use_user_set = $_ [11];
    my $is_mesh = $_ [12];

    my $xmult = $world_x;
    my $ymult = $world_y;
    my $zmult = $world_z;

    my $x_span = abs ($max_x - $min_x);
    my $y_span = abs ($max_y - $min_y);

    my $graph3d_html = "    <!DOCTYPE html>\n";
    $graph3d_html .= "    <html lang=\"en\"><head>\n";
    $graph3d_html .= "    <meta http-equiv=\"content-type\" content=\"text/html; charset=UTF-8\">\n";
    $graph3d_html .= "      <title>Rotateable 3D Graph</title>\n";
    $graph3d_html .= "    <style>\n";
    $graph3d_html .= "    .canvasEg\n";
    $graph3d_html .= "    {\n";
    $graph3d_html .= "      margin: 0;\n";
    $graph3d_html .= "      background-color: antiquewhite;\n";
    $graph3d_html .= "      border: 1px solid white;\n";
    $graph3d_html .= "    }\n";
    $graph3d_html .= "    </style>\n";
    $graph3d_html .= "    <script src=\"cango/Cango3D-13v00.js\"></script>\n";
    $graph3d_html .= "    <script src=\"cango/CanvasStack-2v01.js\"></script>\n";
    $graph3d_html .= "    <script src=\"cango/Graph3D-3v00.js\"></script>\n";
    $graph3d_html .= "    <script>\n";
    $graph3d_html .= "        function generateTopography (xmin, xmax, ymin, ymax, rows, columns)\n";
    $graph3d_html .= "        {\n";
    $graph3d_html .= "            const nRws = rows || 20;\n";
    $graph3d_html .= "            row_num = 0;\n";
    $graph3d_html .= "            col_num = 0;\n";
    $graph3d_html .= "            const nCls = columns || 20;\n";
    $graph3d_html .= "            const xstep = (xmax-xmin)/nRws;\n";
    $graph3d_html .= "            const ystep = (ymax-ymin)/nCls;\n";
    $graph3d_html .= "            const shape_data = [];\n";
    $graph3d_html .= "            for (let r=0, yVal=ymin; row_num < rows; r++, yVal+=ystep)\n";
    $graph3d_html .= "            {\n";
    $graph3d_html .= "                shape_data[row_num] = [];\n";
    $graph3d_html .= "                for (let c=0, xVal=xmin, col_num = 0; col_num < columns; c++, xVal+=xstep)\n";
    $graph3d_html .= "                {\n";
    $graph3d_html .= "                    shape_data[row_num][col_num] = {x: xVal, y: yVal, z: -12.0};\n";
    $graph3d_html .= "                    col_num++;\n";
    $graph3d_html .= "                }\n";
    $graph3d_html .= "                console.warn (\"Done col \" + col_num + \" for columns=\" + columns);\n";
    $graph3d_html .= "                row_num++;\n";
    $graph3d_html .= "            }\n";
    $graph3d_html .= $shape_data;
    $graph3d_html .= "            return shape_data;\n";
    $graph3d_html .= "        }\n";
    $graph3d_html .= "        function generateSurface(canvasID)\n";
    $graph3d_html .= "        {\n";
    $graph3d_html .= "            const gc = new Cango3D(canvasID);\n";
    $graph3d_html .= "            gc.clearCanvas();\n";
    my $tan_val = tan (13.5/180*3.14159265358979323);
    my $proper_z_offset = ($x_span / 2) / $tan_val;
    my $max_dim = max ($max_x,$max_y, $max_z);
    if ($max_z  < 1.2)
    {
        $max_z = 1.25;
    }
    $graph3d_html .= "            const xmin = -$max_z, xmax = $max_z,\n";
    $graph3d_html .= "                  ymin = -$max_z, ymax = $max_z,\n";
    $graph3d_html .= "                  zmin = -$max_z, zmax = $max_z;\n";
    $graph3d_html .= "            const blobData = generateTopography(xmin, xmax, ymin, ymax, $max_x, $max_y);\n";
    $graph3d_html .= "            const grf = new Graph3D(xmin, xmax, ymin, ymax, zmin, zmax,\n";
    $graph3d_html .= "            {\n";
    $graph3d_html .= "                xLabel: \"X\",\n";
    $graph3d_html .= "                yLabel: \"Y\",\n";
    $graph3d_html .= "                zLabel: \"Z\",\n";
    $graph3d_html .= "                xunits: \"\",\n";
    $graph3d_html .= "                yUnits: \"\",\n";
    $graph3d_html .= "                zUnits: \"\",\n";
    $graph3d_html .= "                gridColor:\"darkgrey\",\n";
    $graph3d_html .= "                fontSize: 12\n";
    $graph3d_html .= "            });\n";
    $graph3d_html .= "            grf.surfacePlot(blobData, {fillColor: \"colormap\", meshColor: \"colormap\" });\n";
    $graph3d_html .= "            grf.surfacePlot(blobData, {fillColor: \"colormap\", meshColor: \"colormap\" });\n";
    $graph3d_html .= "            console.warn (\"DOING INITZOOM\");\n";
    $graph3d_html .= "            gc.initZoomTurn(grf);\n";
    $graph3d_html .= "            console.warn (\"DONE INITZOOM\");\n";

    if ($use_user_set)
    {
        $graph3d_html .= "            gc.setWorldCoords3D(" . $max_x*$xmult . "," . $max_y*$ymult . "," . ((abs($max_z) + abs($min_z)) * $zmult) . ");   // put the origin in center of canvas NOAUTO=$use_user_set\n";
    }
    else
    {
        $graph3d_html .= "            gc.autosetWorldCoords3D();   // put the origin in center of canvas - AUTO SET AUTO=$use_user_set\n";
    }

    $graph3d_html .= "            gc.initZoomTurn(grf);\n";
    $graph3d_html .= "        }\n";
    $graph3d_html .= "        window.addEventListener(\"load\", function()\n";
    $graph3d_html .= "        {\n";
    $graph3d_html .= "            console.warn (\"DOING SURFACE\");\n";
    $graph3d_html .= "            generateSurface('thecanvas');\n";
    $graph3d_html .= "            console.warn (\"DONE SURFACE\");\n";
    $graph3d_html .= "        });\n";
    $graph3d_html .= "      </script>\n";
    $graph3d_html .= "    </head>\n";
    $graph3d_html .= "    <body>\n";

    my $stats = " x: $max_x , $min_x, y: $max_y, $min_y, z: $max_z, $min_z<br>";

    if ($is_mesh)
    {
        $graph3d_html .= "    <h1>Mesh 3D Graph for $title</h1><br>\n";
    }
    else
    {
        $graph3d_html .= "    <h1>3D Graph for $title</h1><br>\n";
    }
    $graph3d_html .= "    <div class=\"figHolder\" style=\"width: 430px; margin:20px 0px; float: center;\">\n";
    $graph3d_html .= "      <canvas id=\"thecanvas\" class=\"canvasEg\" width=\"700\" height=\"700\"></canvas>\n";
    $graph3d_html .= "    </div>\n";
    $graph3d_html .= "    </body></html>\n";
    return $graph3d_html;
}

my $examples_one;
my $examples_two;
my $examples_three;
my $examples_four;
my $examples_five;
my $examples_six;
my $examples_seven;
sub set_examples
{
    $examples_one = "X_val	Y_yal	Row	DivRow	ModRow	??	Z_val_cylinder
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=-280	=INT(C>|24)	=MOD(C>|24)-12	0	=(D>+12)*0.2	=J1	
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^+0.2	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J1
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=(D>+12)*0.2	=J1	
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^+0.2	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J1
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=(D>+12)*0.2	=J1	
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^+0.2	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J1
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=(D>+12)*0.2	=J1	
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^+0.2	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J1
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=(D>+12)*0.2	=J1	
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^+0.2	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J1
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=(D>+12)*0.2	=J1	
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^+0.2	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J1
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=(D>+12)*0.2	=J1	
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^+0.2	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J1
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=(D>+12)*0.2	=J1	
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^+0.2	=J2
=cos(E>/3.14159265358979)	=sin(E>/3.14159265358979)	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J1
=A^	=B^	=C^+0.5	=INT(C>|24)	=MOD(C>|24)-12	0	=G^^	=J2";
    $examples_two= "X;Y;SPHERE_Z;D?\n-1;0;0\n-0.92;-0.33;0.22\n-0.92;-0.25;0.31\n-0.92;-0.17;0.36\n-0.92;-0.08;0.39\n-0.92;0;0.40\n-0.92;0.08;0.39\n-0.92;0.17;0.36\n-0.92;0.25;0.31\n-0.92;0.33;0.22\n-0.83;-0.50;0.24\n-0.83;-0.42;0.36\n-0.83;-0.33;0.44\n-0.83;-0.25;0.49\n-0.83;-0.17;0.53\n-0.83;-0.08;0.55\n
-0.83;0;0.55\n-0.83;0.08;0.55\n-0.83;0.17;0.53\n-0.83;0.25;0.49\n-0.83;0.33;0.44\n-0.83;0.42;0.36\n-0.83;0.50;0.24\n-0.75;-0.58;0.31\n-0.75;-0.50;0.43\n-0.75;-0.42;0.51\n-0.75;-0.33;0.57\n-0.75;-0.25;0.61\n-0.75;-0.17;0.64\n-0.75;-0.08;0.66\n-0.75;0;0.66\n-0.75;0.08;0.66\n-0.75;0.17;0.64\n
-0.75;0.25;0.61\n-0.75;0.33;0.57\n-0.75;0.42;0.51\n-0.75;0.50;0.43\n-0.75;0.58;0.31\n-0.67;-0.67;0.33\n-0.67;-0.58;0.46\n-0.67;-0.50;0.55\n-0.67;-0.42;0.62\n-0.67;-0.33;0.67\n-0.67;-0.25;0.70\n-0.67;-0.17;0.73\n-0.67;-0.08;0.74\n-0.67;0;0.75\n-0.67;0.08;0.74\n-0.67;0.17;0.73\n
-0.67;0.25;0.70\n-0.67;0.33;0.67\n-0.67;0.42;0.62\n-0.67;0.50;0.55\n-0.67;0.58;0.46\n-0.67;0.67;0.33\n-0.58;-0.75;0.31\n-0.58;-0.67;0.46\n-0.58;-0.58;0.57\n-0.58;-0.50;0.64\n-0.58;-0.42;0.70\n-0.58;-0.33;0.74\n-0.58;-0.25;0.77\n-0.58;-0.17;0.79\n-0.58;-0.08;0.81\n-0.58;0;0.81\n
-0.58;0.08;0.81\n-0.58;0.17;0.79\n-0.58;0.25;0.77\n-0.58;0.33;0.74\n-0.58;0.42;0.70\n-0.58;0.50;0.64\n-0.58;0.58;0.57\n-0.58;0.67;0.46\n-0.58;0.75;0.31\n-0.50;-0.83;0.24\n-0.50;-0.75;0.43\n-0.50;-0.67;0.55\n-0.50;-0.58;0.64\n-0.50;-0.50;0.71\n-0.50;-0.42;0.76\n-0.50;-0.33;0.80\n
-0.50;-0.25;0.83\n-0.50;-0.17;0.85\n-0.50;-0.08;0.86\n-0.50;0;0.87\n-0.50;0.08;0.86\n-0.50;0.17;0.85\n-0.50;0.25;0.83\n-0.50;0.33;0.80\n-0.50;0.42;0.76\n-0.50;0.50;0.71\n-0.50;0.58;0.64\n-0.50;0.67;0.55\n-0.50;0.75;0.43\n-0.50;0.83;0.24\n-0.42;-0.83;0.36\n-0.42;-0.75;0.51\n
-0.42;-0.67;0.62\n-0.42;-0.58;0.70\n-0.42;-0.50;0.76\n-0.42;-0.42;0.81\n-0.42;-0.33;0.85\n-0.42;-0.25;0.87\n-0.42;-0.17;0.89\n-0.42;-0.08;0.91\n-0.42;0;0.91\n-0.42;0.08;0.91\n-0.42;0.17;0.89\n-0.42;0.25;0.87\n-0.42;0.33;0.85\n-0.42;0.42;0.81\n-0.42;0.50;0.76\n-0.42;0.58;0.70\n
-0.42;0.67;0.62\n-0.42;0.75;0.51\n-0.42;0.83;0.36\n-0.33;-0.92;0.22\n-0.33;-0.83;0.44\n-0.33;-0.75;0.57\n-0.33;-0.67;0.67\n-0.33;-0.58;0.74\n-0.33;-0.50;0.80\n-0.33;-0.42;0.85\n-0.33;-0.33;0.88\n-0.33;-0.25;0.91\n-0.33;-0.17;0.93\n-0.33;-0.08;0.94\n-0.33;0;0.94\n-0.33;0.08;0.94\n
-0.33;0.17;0.93\n-0.33;0.25;0.91\n-0.33;0.33;0.88\n-0.33;0.42;0.85\n-0.33;0.50;0.80\n-0.33;0.58;0.74\n-0.33;0.67;0.67\n-0.33;0.75;0.57\n-0.33;0.83;0.44\n-0.33;0.92;0.22\n-0.25;-0.92;0.31\n-0.25;-0.83;0.49\n-0.25;-0.75;0.61\n-0.25;-0.67;0.70\n-0.25;-0.58;0.77\n-0.25;-0.50;0.83\n
-0.25;-0.42;0.87\n-0.25;-0.33;0.91\n-0.25;-0.25;0.94\n-0.25;-0.17;0.95\n-0.25;-0.08;0.96\n-0.25;0;0.97\n-0.25;0.08;0.96\n-0.25;0.17;0.95\n-0.25;0.25;0.94\n-0.25;0.33;0.91\n-0.25;0.42;0.87\n-0.25;0.50;0.83\n-0.25;0.58;0.77\n-0.25;0.67;0.70\n-0.25;0.75;0.61\n-0.25;0.83;0.49\n
-0.25;0.92;0.31\n-0.17;-0.92;0.36\n-0.17;-0.83;0.53\n-0.17;-0.75;0.64\n-0.17;-0.67;0.73\n-0.17;-0.58;0.79\n-0.17;-0.50;0.85\n-0.17;-0.42;0.89\n-0.17;-0.33;0.93\n-0.17;-0.25;0.95\n-0.17;-0.17;0.97\n-0.17;-0.08;0.98\n-0.17;0;0.99\n-0.17;0.08;0.98\n-0.17;0.17;0.97\n-0.17;0.25;0.95\n
-0.17;0.33;0.93\n-0.17;0.42;0.89\n-0.17;0.50;0.85\n-0.17;0.58;0.79\n-0.17;0.67;0.73\n-0.17;0.75;0.64\n-0.17;0.83;0.53\n-0.17;0.92;0.36\n-0.08;-0.92;0.39\n-0.08;-0.83;0.55\n-0.08;-0.75;0.66\n-0.08;-0.67;0.74\n-0.08;-0.58;0.81\n-0.08;-0.50;0.86\n-0.08;-0.42;0.91\n-0.08;-0.33;0.94\n
-0.08;-0.25;0.96\n-0.08;-0.17;0.98\n-0.08;-0.08;0.99\n-0.08;0;1.00\n-0.08;0.08;0.99\n-0.08;0.17;0.98\n-0.08;0.25;0.96\n-0.08;0.33;0.94\n-0.08;0.42;0.91\n-0.08;0.50;0.86\n-0.08;0.58;0.81\n-0.08;0.67;0.74\n-0.08;0.75;0.66\n-0.08;0.83;0.55\n-0.08;0.92;0.39\n0;-0.92;0.40\n
0;-0.83;0.55\n0;-0.75;0.66\n0;-0.67;0.75\n0;-0.58;0.81\n0;-0.50;0.87\n0;-0.42;0.91\n0;-0.33;0.94\n0;-0.25;0.97\n0;-0.17;0.99\n0;-0.08;1.00\n0;0;1\n0;0.08;1.00\n0;0.17;0.99\n0;0.25;0.97\n0;0.33;0.94\n0;0.42;0.91\n
0;0.50;0.87\n0;0.58;0.81\n0;0.67;0.75\n0;0.75;0.66\n0;0.83;0.55\n0;0.92;0.40\n0;-1;0\n0;-0.92;0.40\n0;-0.83;0.55\n0;-0.75;0.66\n0;-0.67;0.75\n0;-0.58;0.81\n0;-0.50;0.87\n0;-0.42;0.91\n0;-0.33;0.94\n0;-0.25;0.97\n
0;-0.17;0.99\n0;-0.08;1.00\n0;0;1\n0;0.08;1.00\n0;0.17;0.99\n0;0.25;0.97\n0;0.33;0.94\n0;0.42;0.91\n0;0.50;0.87\n0;0.58;0.81\n0;0.67;0.75\n0;0.75;0.66\n0;0.83;0.55\n0;0.92;0.40\n0.08;-0.92;0.39\n0.08;-0.83;0.55\n0.08;-0.75;0.66\n0.08;-0.67;0.74\n0.08;-0.58;0.81\n0.08;-0.50;0.86\n0.08;-0.42;0.91\n0.08;-0.33;0.94\n0.08;-0.25;0.96\n0.08;-0.17;0.98\n0.08;-0.08;0.99\n0.08;0;1.00\n0.08;0.08;0.99\n0.08;0.17;0.98\n0.08;0.25;0.96\n0.08;0.33;0.94\n0.08;0.42;0.91\n
0.08;0.50;0.86\n0.08;0.58;0.81\n0.08;0.67;0.74\n0.08;0.75;0.66\n0.08;0.83;0.55\n0.08;0.92;0.39\n0.17;-0.92;0.36\n0.17;-0.83;0.53\n0.17;-0.75;0.64\n0.17;-0.67;0.73\n0.17;-0.58;0.79\n0.17;-0.50;0.85\n0.17;-0.42;0.89\n0.17;-0.33;0.93\n0.17;-0.25;0.95\n0.17;-0.17;0.97\n
0.17;-0.08;0.98\n0.17;0;0.99\n0.17;0.08;0.98\n0.17;0.17;0.97\n0.17;0.25;0.95\n0.17;0.33;0.93\n0.17;0.42;0.89\n0.17;0.50;0.85\n0.17;0.58;0.79\n0.17;0.67;0.73\n0.17;0.75;0.64\n0.17;0.83;0.53\n0.17;0.92;0.36\n0.25;-0.92;0.31\n0.25;-0.83;0.49\n0.25;-0.75;0.61\n
0.25;-0.67;0.70\n0.25;-0.58;0.77\n0.25;-0.50;0.83\n0.25;-0.42;0.87\n0.25;-0.33;0.91\n0.25;-0.25;0.94\n0.25;-0.17;0.95\n0.25;-0.08;0.96\n0.25;0;0.97\n0.25;0.08;0.96\n0.25;0.17;0.95\n0.25;0.25;0.94\n0.25;0.33;0.91\n0.25;0.42;0.87\n0.25;0.50;0.83\n0.25;0.58;0.77\n
0.25;0.67;0.70\n0.25;0.75;0.61\n0.25;0.83;0.49\n0.25;0.92;0.31\n0.33;-0.92;0.22\n0.33;-0.83;0.44\n0.33;-0.75;0.57\n0.33;-0.67;0.67\n0.33;-0.58;0.74\n0.33;-0.50;0.80\n0.33;-0.42;0.85\n0.33;-0.33;0.88\n0.33;-0.25;0.91\n0.33;-0.17;0.93\n0.33;-0.08;0.94\n0.33;0;0.94\n
0.33;0.08;0.94\n0.33;0.17;0.93\n0.33;0.25;0.91\n0.33;0.33;0.88\n0.33;0.42;0.85\n0.33;0.50;0.80\n0.33;0.58;0.74\n0.33;0.67;0.67\n0.33;0.75;0.57\n0.33;0.83;0.44\n0.33;0.92;0.22\n0.42;-0.83;0.36\n0.42;-0.75;0.51\n0.42;-0.67;0.62\n0.42;-0.58;0.70\n0.42;-0.50;0.76\n
0.42;-0.42;0.81\n0.42;-0.33;0.85\n0.42;-0.25;0.87\n0.42;-0.17;0.89\n0.42;-0.08;0.91\n0.42;0;0.91\n0.42;0.08;0.91\n0.42;0.17;0.89\n0.42;0.25;0.87\n0.42;0.33;0.85\n0.42;0.42;0.81\n0.42;0.50;0.76\n0.42;0.58;0.70\n0.42;0.67;0.62\n0.42;0.75;0.51\n0.42;0.83;0.36\n
0.50;-0.83;0.24\n0.50;-0.75;0.43\n0.50;-0.67;0.55\n0.50;-0.58;0.64\n0.50;-0.50;0.71\n0.50;-0.42;0.76\n0.50;-0.33;0.80\n0.50;-0.25;0.83\n0.50;-0.17;0.85\n0.50;-0.08;0.86\n0.50;0;0.87\n0.50;0.08;0.86\n0.50;0.17;0.85\n0.50;0.25;0.83\n0.50;0.33;0.80\n0.50;0.42;0.76\n
0.50;0.50;0.71\n0.50;0.58;0.64\n0.50;0.67;0.55\n0.50;0.75;0.43\n0.50;0.83;0.24\n0.58;-0.75;0.31\n0.58;-0.67;0.46\n0.58;-0.58;0.57\n0.58;-0.50;0.64\n0.58;-0.42;0.70\n0.58;-0.33;0.74\n0.58;-0.25;0.77\n0.58;-0.17;0.79\n0.58;-0.08;0.81\n0.58;0;0.81\n0.58;0.08;0.81\n
0.58;0.17;0.79\n0.58;0.25;0.77\n0.58;0.33;0.74\n0.58;0.42;0.70\n0.58;0.50;0.64\n0.58;0.58;0.57\n0.58;0.67;0.46\n0.58;0.75;0.31\n0.67;-0.67;0.33\n0.67;-0.58;0.46\n0.67;-0.50;0.55\n0.67;-0.42;0.62\n0.67;-0.33;0.67\n0.67;-0.25;0.70\n0.67;-0.17;0.73\n0.67;-0.08;0.74\n
0.67;0;0.75\n0.67;0.08;0.74\n0.67;0.17;0.73\n0.67;0.25;0.70\n0.67;0.33;0.67\n0.67;0.42;0.62\n0.67;0.50;0.55\n0.67;0.58;0.46\n0.67;0.67;0.33\n0.75;-0.58;0.31\n0.75;-0.50;0.43\n0.75;-0.42;0.51\n0.75;-0.33;0.57\n0.75;-0.25;0.61\n0.75;-0.17;0.64\n0.75;-0.08;0.66\n
0.75;0;0.66\n0.75;0.08;0.66\n0.75;0.17;0.64\n0.75;0.25;0.61\n0.75;0.33;0.57\n0.75;0.42;0.51\n0.75;0.50;0.43\n0.75;0.58;0.31\n0.83;-0.50;0.24\n0.83;-0.42;0.36\n0.83;-0.33;0.44\n0.83;-0.25;0.49\n0.83;-0.17;0.53\n0.83;-0.08;0.55\n0.83;0;0.55\n0.83;0.08;0.55\n
0.83;0.17;0.53\n0.83;0.25;0.49\n0.83;0.33;0.44\n0.83;0.42;0.36\n0.83;0.50;0.24\n0.92;-0.33;0.22\n0.92;-0.25;0.31\n0.92;-0.17;0.36\n0.92;-0.08;0.39\n0.92;0;0.40\n0.92;0.08;0.39\n0.92;0.17;0.36\n0.92;0.25;0.31\n0.92;0.33;0.22\n1;0;0\n-1.01;0;-0;0\n
-0.9201;-0.33;-0.22;-0.22\n-0.9201;-0.25;-0.31;-0.31\n-0.9201;-0.17;-0.36;-0.36\n-0.9201;-0.08;-0.39;-0.39\n-0.9201;0;-0.40;-0.40\n-0.9201;0.08;-0.39;-0.39\n-0.9201;0.17;-0.36;-0.36\n-0.9201;0.25;-0.31;-0.31\n-0.9201;0.33;-0.22;-0.22\n-0.8301;-0.50;-0.24;-0.24\n-0.8301;-0.42;-0.36;-0.36\n-0.8301;-0.33;-0.44;-0.44\n-0.8301;-0.25;-0.49;-0.49\n-0.8301;-0.17;-0.53;-0.53\n-0.8301;-0.08;-0.55;-0.55\n-0.8301;0;-0.55;-0.55\n
-0.8301;0.08;-0.55;-0.55\n-0.8301;0.17;-0.53;-0.53\n-0.8301;0.25;-0.49;-0.49\n-0.8301;0.33;-0.44;-0.44\n-0.8301;0.42;-0.36;-0.36\n-0.8301;0.50;-0.24;-0.24\n-0.7501;-0.58;-0.31;-0.31\n-0.7501;-0.50;-0.43;-0.43\n-0.7501;-0.42;-0.51;-0.51\n-0.7501;-0.33;-0.57;-0.57\n-0.7501;-0.25;-0.61;-0.61\n-0.7501;-0.17;-0.64;-0.64\n-0.7501;-0.08;-0.66;-0.66\n-0.7501;0;-0.66;-0.66\n-0.7501;0.08;-0.66;-0.66\n-0.7501;0.17;-0.64;-0.64\n
-0.7501;0.25;-0.61;-0.61\n-0.7501;0.33;-0.57;-0.57\n-0.7501;0.42;-0.51;-0.51\n-0.7501;0.50;-0.43;-0.43\n-0.7501;0.58;-0.31;-0.31\n-0.6701;-0.67;-0.33;-0.33\n-0.6701;-0.58;-0.46;-0.46\n-0.6701;-0.50;-0.55;-0.55\n-0.6701;-0.42;-0.62;-0.62\n-0.6701;-0.33;-0.67;-0.67\n-0.6701;-0.25;-0.70;-0.70\n-0.6701;-0.17;-0.73;-0.73\n-0.6701;-0.08;-0.74;-0.74\n-0.6701;0;-0.75;-0.75\n-0.6701;0.08;-0.74;-0.74\n-0.6701;0.17;-0.73;-0.73\n
-0.6701;0.25;-0.70;-0.70\n-0.6701;0.33;-0.67;-0.67\n-0.6701;0.42;-0.62;-0.62\n-0.6701;0.50;-0.55;-0.55\n-0.6701;0.58;-0.46;-0.46\n-0.6701;0.67;-0.33;-0.33\n-0.5801;-0.75;-0.31;-0.31\n-0.5801;-0.67;-0.46;-0.46\n-0.5801;-0.58;-0.57;-0.57\n-0.5801;-0.50;-0.64;-0.64\n-0.5801;-0.42;-0.70;-0.70\n-0.5801;-0.33;-0.74;-0.74\n-0.5801;-0.25;-0.77;-0.77\n-0.5801;-0.17;-0.79;-0.79\n-0.5801;-0.08;-0.81;-0.81\n-0.5801;0;-0.81;-0.81\n
-0.5801;0.08;-0.81;-0.81\n-0.5801;0.17;-0.79;-0.79\n-0.5801;0.25;-0.77;-0.77\n-0.5801;0.33;-0.74;-0.74\n-0.5801;0.42;-0.70;-0.70\n-0.5801;0.50;-0.64;-0.64\n-0.5801;0.58;-0.57;-0.57\n-0.5801;0.67;-0.46;-0.46\n-0.5801;0.75;-0.31;-0.31\n-0.5001;-0.83;-0.24;-0.24\n-0.5001;-0.75;-0.43;-0.43\n-0.5001;-0.67;-0.55;-0.55\n-0.5001;-0.58;-0.64;-0.64\n-0.5001;-0.50;-0.71;-0.71\n-0.5001;-0.42;-0.76;-0.76\n-0.5001;-0.33;-0.80;-0.80\n
-0.5001;-0.25;-0.83;-0.83\n-0.5001;-0.17;-0.85;-0.85\n-0.5001;-0.08;-0.86;-0.86\n-0.5001;0;-0.87;-0.87\n-0.5001;0.08;-0.86;-0.86\n-0.5001;0.17;-0.85;-0.85\n-0.5001;0.25;-0.83;-0.83\n-0.5001;0.33;-0.80;-0.80\n-0.5001;0.42;-0.76;-0.76\n-0.5001;0.50;-0.71;-0.71\n-0.5001;0.58;-0.64;-0.64\n-0.5001;0.67;-0.55;-0.55\n-0.5001;0.75;-0.43;-0.43\n-0.5001;0.83;-0.24;-0.24\n-0.4201;-0.83;-0.36;-0.36\n-0.4201;-0.75;-0.51;-0.51\n
-0.4201;-0.67;-0.62;-0.62\n-0.4201;-0.58;-0.70;-0.70\n-0.4201;-0.50;-0.76;-0.76\n-0.4201;-0.42;-0.81;-0.81\n-0.4201;-0.33;-0.85;-0.85\n-0.4201;-0.25;-0.87;-0.87\n-0.4201;-0.17;-0.89;-0.89\n-0.4201;-0.08;-0.91;-0.91\n-0.4201;0;-0.91;-0.91\n-0.4201;0.08;-0.91;-0.91\n-0.4201;0.17;-0.89;-0.89\n-0.4201;0.25;-0.87;-0.87\n-0.4201;0.33;-0.85;-0.85\n-0.4201;0.42;-0.81;-0.81\n-0.4201;0.50;-0.76;-0.76\n-0.4201;0.58;-0.70;-0.70\n
-0.4201;0.67;-0.62;-0.62\n-0.4201;0.75;-0.51;-0.51\n-0.4201;0.83;-0.36;-0.36\n-0.3301;-0.92;-0.22;-0.22\n-0.3301;-0.83;-0.44;-0.44\n-0.3301;-0.75;-0.57;-0.57\n-0.3301;-0.67;-0.67;-0.67\n-0.3301;-0.58;-0.74;-0.74\n-0.3301;-0.50;-0.80;-0.80\n-0.3301;-0.42;-0.85;-0.85\n-0.3301;-0.33;-0.88;-0.88\n-0.3301;-0.25;-0.91;-0.91\n-0.3301;-0.17;-0.93;-0.93\n-0.3301;-0.08;-0.94;-0.94\n-0.3301;0;-0.94;-0.94\n-0.3301;0.08;-0.94;-0.94\n
-0.3301;0.17;-0.93;-0.93\n-0.3301;0.25;-0.91;-0.91\n-0.3301;0.33;-0.88;-0.88\n-0.3301;0.42;-0.85;-0.85\n-0.3301;0.50;-0.80;-0.80\n-0.3301;0.58;-0.74;-0.74\n-0.3301;0.67;-0.67;-0.67\n-0.3301;0.75;-0.57;-0.57\n-0.3301;0.83;-0.44;-0.44\n-0.3301;0.92;-0.22;-0.22\n-0.2501;-0.92;-0.31;-0.31\n-0.2501;-0.83;-0.49;-0.49\n-0.2501;-0.75;-0.61;-0.61\n-0.2501;-0.67;-0.70;-0.70\n-0.2501;-0.58;-0.77;-0.77\n-0.2501;-0.50;-0.83;-0.83\n
-0.2501;-0.42;-0.87;-0.87\n-0.2501;-0.33;-0.91;-0.91\n-0.2501;-0.25;-0.94;-0.94\n-0.2501;-0.17;-0.95;-0.95\n-0.2501;-0.08;-0.96;-0.96\n-0.2501;0;-0.97;-0.97\n-0.2501;0.08;-0.96;-0.96\n-0.2501;0.17;-0.95;-0.95\n-0.2501;0.25;-0.94;-0.94\n-0.2501;0.33;-0.91;-0.91\n-0.2501;0.42;-0.87;-0.87\n-0.2501;0.50;-0.83;-0.83\n-0.2501;0.58;-0.77;-0.77\n-0.2501;0.67;-0.70;-0.70\n-0.2501;0.75;-0.61;-0.61\n-0.2501;0.83;-0.49;-0.49\n
-0.2501;0.92;-0.31;-0.31\n-0.1701;-0.92;-0.36;-0.36\n-0.1701;-0.83;-0.53;-0.53\n-0.1701;-0.75;-0.64;-0.64\n-0.1701;-0.67;-0.73;-0.73\n-0.1701;-0.58;-0.79;-0.79\n-0.1701;-0.50;-0.85;-0.85\n-0.1701;-0.42;-0.89;-0.89\n-0.1701;-0.33;-0.93;-0.93\n-0.1701;-0.25;-0.95;-0.95\n-0.1701;-0.17;-0.97;-0.97\n-0.1701;-0.08;-0.98;-0.98\n-0.1701;0;-0.99;-0.99\n-0.1701;0.08;-0.98;-0.98\n-0.1701;0.17;-0.97;-0.97\n-0.1701;0.25;-0.95;-0.95\n
-0.1701;0.33;-0.93;-0.93\n-0.1701;0.42;-0.89;-0.89\n-0.1701;0.50;-0.85;-0.85\n-0.1701;0.58;-0.79;-0.79\n-0.1701;0.67;-0.73;-0.73\n-0.1701;0.75;-0.64;-0.64\n-0.1701;0.83;-0.53;-0.53\n-0.1701;0.92;-0.36;-0.36\n-0.0801;-0.92;-0.39;-0.39\n-0.0801;-0.83;-0.55;-0.55\n-0.0801;-0.75;-0.66;-0.66\n-0.0801;-0.67;-0.74;-0.74\n-0.0801;-0.58;-0.81;-0.81\n-0.0801;-0.50;-0.86;-0.86\n-0.0801;-0.42;-0.91;-0.91\n-0.0801;-0.33;-0.94;-0.94\n
-0.0801;-0.25;-0.96;-0.96\n-0.0801;-0.17;-0.98;-0.98\n-0.0801;-0.08;-0.99;-0.99\n-0.0801;0;-1.00;-1.00\n-0.0801;0.08;-0.99;-0.99\n-0.0801;0.17;-0.98;-0.98\n-0.0801;0.25;-0.96;-0.96\n-0.0801;0.33;-0.94;-0.94\n-0.0801;0.42;-0.91;-0.91\n-0.0801;0.50;-0.86;-0.86\n-0.0801;0.58;-0.81;-0.81\n-0.0801;0.67;-0.74;-0.74\n-0.0801;0.75;-0.66;-0.66\n-0.0801;0.83;-0.55;-0.55\n-0.0801;0.92;-0.39;-0.39\n0.01;-0.92;-0.40;-0.40\n
0.01;-0.83;-0.55;-0.55\n0.01;-0.75;-0.66;-0.66\n0.01;-0.67;-0.75;-0.75\n0.01;-0.58;-0.81;-0.81\n0.01;-0.50;-0.87;-0.87\n0.01;-0.42;-0.91;-0.91\n0.01;-0.33;-0.94;-0.94\n0.01;-0.25;-0.97;-0.97\n0.01;-0.17;-0.99;-0.99\n0.01;-0.08;-1.00;-1.00\n0.01;0;-1;-1\n0.01;0.08;-1.00;-1.00\n0.01;0.17;-0.99;-0.99\n0.01;0.25;-0.97;-0.97\n0.01;0.33;-0.94;-0.94\n0.01;0.42;-0.91;-0.91\n
0.01;0.50;-0.87;-0.87\n0.01;0.58;-0.81;-0.81\n0.01;0.67;-0.75;-0.75\n0.01;0.75;-0.66;-0.66\n0.01;0.83;-0.55;-0.55\n0.01;0.92;-0.40;-0.40\n0.01;-1;-0;0\n0.01;-0.92;-0.40;-0.40\n0.01;-0.83;-0.55;-0.55\n0.01;-0.75;-0.66;-0.66\n0.01;-0.67;-0.75;-0.75\n0.01;-0.58;-0.81;-0.81\n0.01;-0.50;-0.87;-0.87\n0.01;-0.42;-0.91;-0.91\n0.01;-0.33;-0.94;-0.94\n0.01;-0.25;-0.97;-0.97\n
0.01;-0.17;-0.99;-0.99\n0.01;-0.08;-1.00;-1.00\n0.01;0;-1;-1\n0.01;0.08;-1.00;-1.00\n0.01;0.17;-0.99;-0.99\n0.01;0.25;-0.97;-0.97\n0.01;0.33;-0.94;-0.94\n0.01;0.42;-0.91;-0.91\n0.01;0.50;-0.87;-0.87\n0.01;0.58;-0.81;-0.81\n0.01;0.67;-0.75;-0.75\n0.01;0.75;-0.66;-0.66\n0.01;0.83;-0.55;-0.55\n0.01;0.92;-0.40;-0.40\n0.0801;-0.92;-0.39;-0.39\n0.0801;-0.83;-0.55;-0.55\n
0.0801;-0.75;-0.66;-0.66\n0.0801;-0.67;-0.74;-0.74\n0.0801;-0.58;-0.81;-0.81\n0.0801;-0.50;-0.86;-0.86\n0.0801;-0.42;-0.91;-0.91\n0.0801;-0.33;-0.94;-0.94\n0.0801;-0.25;-0.96;-0.96\n0.0801;-0.17;-0.98;-0.98\n0.0801;-0.08;-0.99;-0.99\n0.0801;0;-1.00;-1.00\n0.0801;0.08;-0.99;-0.99\n0.0801;0.17;-0.98;-0.98\n0.0801;0.25;-0.96;-0.96\n0.0801;0.33;-0.94;-0.94\n0.0801;0.42;-0.91;-0.91\n0.0801;0.50;-0.86;-0.86\n
0.0801;0.58;-0.81;-0.81\n0.0801;0.67;-0.74;-0.74\n0.0801;0.75;-0.66;-0.66\n0.0801;0.83;-0.55;-0.55\n0.0801;0.92;-0.39;-0.39\n0.1701;-0.92;-0.36;-0.36\n0.1701;-0.83;-0.53;-0.53\n0.1701;-0.75;-0.64;-0.64\n0.1701;-0.67;-0.73;-0.73\n0.1701;-0.58;-0.79;-0.79\n0.1701;-0.50;-0.85;-0.85\n0.1701;-0.42;-0.89;-0.89\n0.1701;-0.33;-0.93;-0.93\n0.1701;-0.25;-0.95;-0.95\n0.1701;-0.17;-0.97;-0.97\n0.1701;-0.08;-0.98;-0.98\n
0.1701;0;-0.99;-0.99\n0.1701;0.08;-0.98;-0.98\n0.1701;0.17;-0.97;-0.97\n0.1701;0.25;-0.95;-0.95\n0.1701;0.33;-0.93;-0.93\n0.1701;0.42;-0.89;-0.89\n0.1701;0.50;-0.85;-0.85\n0.1701;0.58;-0.79;-0.79\n0.1701;0.67;-0.73;-0.73\n0.1701;0.75;-0.64;-0.64\n0.1701;0.83;-0.53;-0.53\n0.1701;0.92;-0.36;-0.36\n0.2501;-0.92;-0.31;-0.31\n0.2501;-0.83;-0.49;-0.49\n0.2501;-0.75;-0.61;-0.61\n0.2501;-0.67;-0.70;-0.70\n
0.2501;-0.58;-0.77;-0.77\n0.2501;-0.50;-0.83;-0.83\n0.2501;-0.42;-0.87;-0.87\n0.2501;-0.33;-0.91;-0.91\n0.2501;-0.25;-0.94;-0.94\n0.2501;-0.17;-0.95;-0.95\n0.2501;-0.08;-0.96;-0.96\n0.2501;0;-0.97;-0.97\n0.2501;0.08;-0.96;-0.96\n0.2501;0.17;-0.95;-0.95\n0.2501;0.25;-0.94;-0.94\n0.2501;0.33;-0.91;-0.91\n0.2501;0.42;-0.87;-0.87\n0.2501;0.50;-0.83;-0.83\n0.2501;0.58;-0.77;-0.77\n0.2501;0.67;-0.70;-0.70\n
0.2501;0.75;-0.61;-0.61\n0.2501;0.83;-0.49;-0.49\n0.2501;0.92;-0.31;-0.31\n0.3301;-0.92;-0.22;-0.22\n0.3301;-0.83;-0.44;-0.44\n0.3301;-0.75;-0.57;-0.57\n0.3301;-0.67;-0.67;-0.67\n0.3301;-0.58;-0.74;-0.74\n0.3301;-0.50;-0.80;-0.80\n0.3301;-0.42;-0.85;-0.85\n0.3301;-0.33;-0.88;-0.88\n0.3301;-0.25;-0.91;-0.91\n0.3301;-0.17;-0.93;-0.93\n0.3301;-0.08;-0.94;-0.94\n0.3301;0;-0.94;-0.94\n0.3301;0.08;-0.94;-0.94\n
0.3301;0.17;-0.93;-0.93\n0.3301;0.25;-0.91;-0.91\n0.3301;0.33;-0.88;-0.88\n0.3301;0.42;-0.85;-0.85\n0.3301;0.50;-0.80;-0.80\n0.3301;0.58;-0.74;-0.74\n0.3301;0.67;-0.67;-0.67\n0.3301;0.75;-0.57;-0.57\n0.3301;0.83;-0.44;-0.44\n0.3301;0.92;-0.22;-0.22\n0.4201;-0.83;-0.36;-0.36\n0.4201;-0.75;-0.51;-0.51\n0.4201;-0.67;-0.62;-0.62\n0.4201;-0.58;-0.70;-0.70\n0.4201;-0.50;-0.76;-0.76\n0.4201;-0.42;-0.81;-0.81\n
0.4201;-0.33;-0.85;-0.85\n0.4201;-0.25;-0.87;-0.87\n0.4201;-0.17;-0.89;-0.89\n0.4201;-0.08;-0.91;-0.91\n0.4201;0;-0.91;-0.91\n0.4201;0.08;-0.91;-0.91\n0.4201;0.17;-0.89;-0.89\n0.4201;0.25;-0.87;-0.87\n0.4201;0.33;-0.85;-0.85\n0.4201;0.42;-0.81;-0.81\n0.4201;0.50;-0.76;-0.76\n0.4201;0.58;-0.70;-0.70\n0.4201;0.67;-0.62;-0.62\n0.4201;0.75;-0.51;-0.51\n0.4201;0.83;-0.36;-0.36\n0.5001;-0.83;-0.24;-0.24\n
0.5001;-0.75;-0.43;-0.43\n0.5001;-0.67;-0.55;-0.55\n0.5001;-0.58;-0.64;-0.64\n0.5001;-0.50;-0.71;-0.71\n0.5001;-0.42;-0.76;-0.76\n0.5001;-0.33;-0.80;-0.80\n0.5001;-0.25;-0.83;-0.83\n0.5001;-0.17;-0.85;-0.85\n0.5001;-0.08;-0.86;-0.86\n0.5001;0;-0.87;-0.87\n0.5001;0.08;-0.86;-0.86\n0.5001;0.17;-0.85;-0.85\n0.5001;0.25;-0.83;-0.83\n0.5001;0.33;-0.80;-0.80\n0.5001;0.42;-0.76;-0.76\n0.5001;0.50;-0.71;-0.71\n
0.5001;0.58;-0.64;-0.64\n0.5001;0.67;-0.55;-0.55\n0.5001;0.75;-0.43;-0.43\n0.5001;0.83;-0.24;-0.24\n0.5801;-0.75;-0.31;-0.31\n0.5801;-0.67;-0.46;-0.46\n0.5801;-0.58;-0.57;-0.57\n0.5801;-0.50;-0.64;-0.64\n0.5801;-0.42;-0.70;-0.70\n0.5801;-0.33;-0.74;-0.74\n0.5801;-0.25;-0.77;-0.77\n0.5801;-0.17;-0.79;-0.79\n0.5801;-0.08;-0.81;-0.81\n0.5801;0;-0.81;-0.81\n0.5801;0.08;-0.81;-0.81\n0.5801;0.17;-0.79;-0.79\n
0.5801;0.25;-0.77;-0.77\n0.5801;0.33;-0.74;-0.74\n0.5801;0.42;-0.70;-0.70\n0.5801;0.50;-0.64;-0.64\n0.5801;0.58;-0.57;-0.57\n0.5801;0.67;-0.46;-0.46\n0.5801;0.75;-0.31;-0.31\n0.6701;-0.67;-0.33;-0.33\n0.6701;-0.58;-0.46;-0.46\n0.6701;-0.50;-0.55;-0.55\n0.6701;-0.42;-0.62;-0.62\n0.6701;-0.33;-0.67;-0.67\n0.6701;-0.25;-0.70;-0.70\n0.6701;-0.17;-0.73;-0.73\n0.6701;-0.08;-0.74;-0.74\n0.6701;0;-0.75;-0.75\n
0.6701;0.08;-0.74;-0.74\n0.6701;0.17;-0.73;-0.73\n0.6701;0.25;-0.70;-0.70\n0.6701;0.33;-0.67;-0.67\n0.6701;0.42;-0.62;-0.62\n0.6701;0.50;-0.55;-0.55\n0.6701;0.58;-0.46;-0.46\n0.6701;0.67;-0.33;-0.33\n0.7501;-0.58;-0.31;-0.31\n0.7501;-0.50;-0.43;-0.43\n0.7501;-0.42;-0.51;-0.51\n0.7501;-0.33;-0.57;-0.57\n0.7501;-0.25;-0.61;-0.61\n0.7501;-0.17;-0.64;-0.64\n0.7501;-0.08;-0.66;-0.66\n0.7501;0;-0.66;-0.66\n
0.7501;0.08;-0.66;-0.66\n0.7501;0.17;-0.64;-0.64\n0.7501;0.25;-0.61;-0.61\n0.7501;0.33;-0.57;-0.57\n0.7501;0.42;-0.51;-0.51\n0.7501;0.50;-0.43;-0.43\n0.7501;0.58;-0.31;-0.31\n0.8301;-0.50;-0.24;-0.24\n0.8301;-0.42;-0.36;-0.36\n0.8301;-0.33;-0.44;-0.44\n0.8301;-0.25;-0.49;-0.49\n0.8301;-0.17;-0.53;-0.53\n0.8301;-0.08;-0.55;-0.55\n0.8301;0;-0.55;-0.55\n0.8301;0.08;-0.55;-0.55\n0.8301;0.17;-0.53;-0.53\n
0.8301;0.25;-0.49;-0.49\n0.8301;0.33;-0.44;-0.44\n0.8301;0.42;-0.36;-0.36\n0.8301;0.50;-0.24;-0.24\n0.9201;-0.33;-0.22;-0.22\n0.9201;-0.25;-0.31;-0.31\n0.9201;-0.17;-0.36;-0.36\n0.9201;-0.08;-0.39;-0.39\n0.9201;0;-0.40;-0.40\n0.9201;0.08;-0.39;-0.39\n0.9201;0.17;-0.36;-0.36\n0.9201;0.25;-0.31;-0.31\n0.9201;0.33;-0.22;-0.22\n1.01;0;-0;0\n\n\n
-1;0;0\n-0.92;-0.33;0.22\n-0.92;-0.25;0.31\n-0.92;-0.17;0.36\n-0.92;-0.08;0.39\n-0.83;-0.50;0.24\n-0.83;-0.42;0.36\n-0.83;-0.33;0.44\n-0.83;-0.25;0.49\n-0.83;-0.17;0.53\n-0.83;-0.08;0.55\n-0.75;-0.58;0.31\n-0.75;-0.50;0.43\n-0.75;-0.42;0.51\n-0.75;-0.33;0.57\n-0.75;-0.25;0.61\n
-0.75;-0.17;0.64\n-0.75;-0.08;0.66\n-0.67;-0.67;0.33\n-0.67;-0.58;0.46\n-0.67;-0.50;0.55\n-0.67;-0.42;0.62\n-0.67;-0.33;0.67\n-0.67;-0.25;0.70\n-0.67;-0.17;0.73\n-0.67;-0.08;0.74\n-0.58;-0.75;0.31\n-0.58;-0.67;0.46\n-0.58;-0.58;0.57\n-0.58;-0.50;0.64\n-0.58;-0.42;0.70\n-0.58;-0.33;0.74\n
-0.58;-0.25;0.77\n-0.58;-0.17;0.79\n-0.58;-0.08;0.81\n-0.50;-0.83;0.24\n-0.50;-0.75;0.43\n-0.50;-0.67;0.55\n-0.50;-0.58;0.64\n-0.50;-0.50;0.71\n-0.50;-0.42;0.76\n-0.50;-0.33;0.80\n-0.50;-0.25;0.83\n-0.50;-0.17;0.85\n-0.50;-0.08;0.86\n-0.42;-0.83;0.36\n-0.42;-0.75;0.51\n-0.42;-0.67;0.62\n
-0.42;-0.58;0.70\n-0.42;-0.50;0.76\n-0.42;-0.42;0.81\n-0.42;-0.33;0.85\n-0.42;-0.25;0.87\n-0.42;-0.17;0.89\n-0.42;-0.08;0.91\n-0.33;-0.92;0.22\n-0.33;-0.83;0.44\n-0.33;-0.75;0.57\n-0.33;-0.67;0.67\n-0.33;-0.58;0.74\n-0.33;-0.50;0.80\n-0.33;-0.42;0.85\n-0.33;-0.33;0.88\n-0.33;-0.25;0.91\n
-0.33;-0.17;0.93\n-0.33;-0.08;0.94\n-0.25;-0.92;0.31\n-0.25;-0.83;0.49\n-0.25;-0.75;0.61\n-0.25;-0.67;0.70\n-0.25;-0.58;0.77\n-0.25;-0.50;0.83\n-0.25;-0.42;0.87\n-0.25;-0.33;0.91\n-0.25;-0.25;0.94\n-0.25;-0.17;0.95\n-0.25;-0.08;0.96\n-0.17;-0.92;0.36\n-0.17;-0.83;0.53\n-0.17;-0.75;0.64\n
-0.17;-0.67;0.73\n-0.17;-0.58;0.79\n-0.17;-0.50;0.85\n-0.17;-0.42;0.89\n-0.17;-0.33;0.93\n-0.17;-0.25;0.95\n-0.17;-0.17;0.97\n-0.17;-0.08;0.98\n-0.08;-0.92;0.39\n-0.08;-0.83;0.55\n-0.08;-0.75;0.66\n-0.08;-0.67;0.74\n-0.08;-0.58;0.81\n-0.08;-0.50;0.86\n-0.08;-0.42;0.91\n-0.08;-0.33;0.94\n
-0.08;-0.25;0.96\n-0.08;-0.17;0.98\n-0.08;-0.08;0.99\n0;-0.92;0.40\n0;-0.83;0.55\n0;-0.75;0.66\n0;-0.67;0.75\n0;-0.58;0.81\n0;-0.50;0.87\n0;-0.42;0.91\n0;-0.33;0.94\n0;-0.25;0.97\n0;-0.17;0.99\n0;-0.08;1.00\n0;0;1\n0;0.08;1.00\n
0;0.17;0.99\n0;0.25;0.97\n0;0.33;0.94\n0;0.42;0.91\n0;0.50;0.87\n0;0.58;0.81\n0;0.67;0.75\n0;0.75;0.66\n0;0.83;0.55\n0;0.92;0.40\n0;-1;0\n0;-0.92;0.40\n0;-0.83;0.55\n0;-0.75;0.66\n0;-0.67;0.75\n0;-0.58;0.81\n
0;-0.50;0.87\n0;-0.42;0.91\n0;-0.33;0.94\n0;-0.25;0.97\n0;-0.17;0.99\n0;-0.08;1.00\n0;0;1\n0;0.08;1.00\n0;0.17;0.99\n0;0.25;0.97\n0;0.33;0.94\n0;0.42;0.91\n0;0.50;0.87\n0;0.58;0.81\n0;0.67;0.75\n0;0.75;0.66\n
0;0.83;0.55\n0;0.92;0.40\n0.08;0;1.00\n0.08;0.08;0.99\n0.08;0.17;0.98\n0.08;0.25;0.96\n0.08;0.33;0.94\n0.08;0.42;0.91\n0.08;0.50;0.86\n0.08;0.58;0.81\n0.08;0.67;0.74\n0.08;0.75;0.66\n0.08;0.83;0.55\n0.08;0.92;0.39\n0.17;0;0.99\n0.17;0.08;0.98\n
0.17;0.17;0.97\n0.17;0.25;0.95\n0.17;0.33;0.93\n0.17;0.42;0.89\n0.17;0.50;0.85\n0.17;0.58;0.79\n0.17;0.67;0.73\n0.17;0.75;0.64\n0.17;0.83;0.53\n0.17;0.92;0.36\n0.25;0;0.97\n0.25;0.08;0.96\n0.25;0.17;0.95\n0.25;0.25;0.94\n0.25;0.33;0.91\n0.25;0.42;0.87\n
0.25;0.50;0.83\n0.25;0.58;0.77\n0.25;0.67;0.70\n0.25;0.75;0.61\n0.25;0.83;0.49\n0.25;0.92;0.31\n0.33;0;0.94\n0.33;0.08;0.94\n0.33;0.17;0.93\n0.33;0.25;0.91\n0.33;0.33;0.88\n0.33;0.42;0.85\n0.33;0.50;0.80\n0.33;0.58;0.74\n0.33;0.67;0.67\n0.33;0.75;0.57\n
0.33;0.83;0.44\n0.33;0.92;0.22\n0.42;0;0.91\n0.42;0.08;0.91\n0.42;0.17;0.89\n0.42;0.25;0.87\n0.42;0.33;0.85\n0.42;0.42;0.81\n0.42;0.50;0.76\n0.42;0.58;0.70\n0.42;0.67;0.62\n0.42;0.75;0.51\n0.42;0.83;0.36\n0.50;0;0.87\n0.50;0.08;0.86\n0.50;0.17;0.85\n
0.50;0.25;0.83\n0.50;0.33;0.80\n0.50;0.42;0.76\n0.50;0.50;0.71\n0.50;0.58;0.64\n0.50;0.67;0.55\n0.50;0.75;0.43\n0.50;0.83;0.24\n0.58;0;0.81\n0.58;0.08;0.81\n0.58;0.17;0.79\n0.58;0.25;0.77\n0.58;0.33;0.74\n0.58;0.42;0.70\n0.58;0.50;0.64\n0.58;0.58;0.57\n
0.58;0.67;0.46\n0.58;0.75;0.31\n0.67;0;0.75\n0.67;0.08;0.74\n0.67;0.17;0.73\n0.67;0.25;0.70\n0.67;0.33;0.67\n0.67;0.42;0.62\n0.67;0.50;0.55\n0.67;0.58;0.46\n0.67;0.67;0.33\n0.75;0;0.66\n0.75;0.08;0.66\n0.75;0.17;0.64\n0.75;0.25;0.61\n0.75;0.33;0.57\n
0.75;0.42;0.51\n0.75;0.50;0.43\n0.75;0.58;0.31\n0.83;0;0.55\n0.83;0.08;0.55\n0.83;0.17;0.53\n0.83;0.25;0.49\n0.83;0.33;0.44\n0.83;0.42;0.36\n0.83;0.50;0.24\n0.92;0;0.40\n0.92;0.08;0.39\n0.92;0.17;0.36\n0.92;0.25;0.31\n0.92;0.33;0.22\n1;0;0\n
-0.9201;-0.33;-0.22;-0.22\n-0.9201;-0.25;-0.31;-0.31\n-0.9201;-0.17;-0.36;-0.36\n-0.9201;-0.08;-0.39;-0.39\n-0.8301;-0.50;-0.24;-0.24\n-0.8301;-0.42;-0.36;-0.36\n-0.8301;-0.33;-0.44;-0.44\n-0.8301;-0.25;-0.49;-0.49\n-0.8301;-0.17;-0.53;-0.53\n-0.8301;-0.08;-0.55;-0.55\n-0.7501;-0.58;-0.31;-0.31\n-0.7501;-0.50;-0.43;-0.43\n-0.7501;-0.42;-0.51;-0.51\n-0.7501;-0.33;-0.57;-0.57\n-0.7501;-0.25;-0.61;-0.61\n-0.7501;-0.17;-0.64;-0.64\n
-0.7501;-0.08;-0.66;-0.66\n-0.6701;-0.67;-0.33;-0.33\n-0.6701;-0.58;-0.46;-0.46\n-0.6701;-0.50;-0.55;-0.55\n-0.6701;-0.42;-0.62;-0.62\n-0.6701;-0.33;-0.67;-0.67\n-0.6701;-0.25;-0.70;-0.70\n-0.6701;-0.17;-0.73;-0.73\n-0.6701;-0.08;-0.74;-0.74\n-0.5801;-0.75;-0.31;-0.31\n-0.5801;-0.67;-0.46;-0.46\n-0.5801;-0.58;-0.57;-0.57\n-0.5801;-0.50;-0.64;-0.64\n-0.5801;-0.42;-0.70;-0.70\n-0.5801;-0.33;-0.74;-0.74\n-0.5801;-0.25;-0.77;-0.77\n
-0.5801;-0.17;-0.79;-0.79\n-0.5801;-0.08;-0.81;-0.81\n-0.5001;-0.83;-0.24;-0.24\n-0.5001;-0.75;-0.43;-0.43\n-0.5001;-0.67;-0.55;-0.55\n-0.5001;-0.58;-0.64;-0.64\n-0.5001;-0.50;-0.71;-0.71\n-0.5001;-0.42;-0.76;-0.76\n-0.5001;-0.33;-0.80;-0.80\n-0.5001;-0.25;-0.83;-0.83\n-0.5001;-0.17;-0.85;-0.85\n-0.5001;-0.08;-0.86;-0.86\n-0.4201;-0.83;-0.36;-0.36\n-0.4201;-0.75;-0.51;-0.51\n-0.4201;-0.67;-0.62;-0.62\n-0.4201;-0.58;-0.70;-0.70\n
-0.4201;-0.50;-0.76;-0.76\n-0.4201;-0.42;-0.81;-0.81\n-0.4201;-0.33;-0.85;-0.85\n-0.4201;-0.25;-0.87;-0.87\n-0.4201;-0.17;-0.89;-0.89\n-0.4201;-0.08;-0.91;-0.91\n-0.3301;-0.92;-0.22;-0.22\n-0.3301;-0.83;-0.44;-0.44\n-0.3301;-0.75;-0.57;-0.57\n-0.3301;-0.67;-0.67;-0.67\n-0.3301;-0.58;-0.74;-0.74\n-0.3301;-0.50;-0.80;-0.80\n-0.3301;-0.42;-0.85;-0.85\n-0.3301;-0.33;-0.88;-0.88\n-0.3301;-0.25;-0.91;-0.91\n-0.3301;-0.17;-0.93;-0.93\n
-0.3301;-0.08;-0.94;-0.94\n-0.2501;-0.92;-0.31;-0.31\n-0.2501;-0.83;-0.49;-0.49\n-0.2501;-0.75;-0.61;-0.61\n-0.2501;-0.67;-0.70;-0.70\n-0.2501;-0.58;-0.77;-0.77\n-0.2501;-0.50;-0.83;-0.83\n-0.2501;-0.42;-0.87;-0.87\n-0.2501;-0.33;-0.91;-0.91\n-0.2501;-0.25;-0.94;-0.94\n-0.2501;-0.17;-0.95;-0.95\n-0.2501;-0.08;-0.96;-0.96\n-0.1701;-0.92;-0.36;-0.36\n-0.1701;-0.83;-0.53;-0.53\n-0.1701;-0.75;-0.64;-0.64\n-0.1701;-0.67;-0.73;-0.73\n
-0.1701;-0.58;-0.79;-0.79\n-0.1701;-0.50;-0.85;-0.85\n-0.1701;-0.42;-0.89;-0.89\n-0.1701;-0.33;-0.93;-0.93\n-0.1701;-0.25;-0.95;-0.95\n-0.1701;-0.17;-0.97;-0.97\n-0.1701;-0.08;-0.98;-0.98\n-0.0801;-0.92;-0.39;-0.39\n-0.0801;-0.83;-0.55;-0.55\n-0.0801;-0.75;-0.66;-0.66\n-0.0801;-0.67;-0.74;-0.74\n-0.0801;-0.58;-0.81;-0.81\n-0.0801;-0.50;-0.86;-0.86\n-0.0801;-0.42;-0.91;-0.91\n-0.0801;-0.33;-0.94;-0.94\n-0.0801;-0.25;-0.96;-0.96\n
-0.0801;-0.17;-0.98;-0.98\n-0.0801;-0.08;-0.99;-0.99\n0.01;0;-1;-1\n0.01;0.08;-1.00;-1.00\n0.01;0.17;-0.99;-0.99\n0.01;0.25;-0.97;-0.97\n0.01;0.33;-0.94;-0.94\n0.01;0.42;-0.91;-0.91\n0.01;0.50;-0.87;-0.87\n0.01;0.58;-0.81;-0.81\n0.01;0.67;-0.75;-0.75\n0.01;0.75;-0.66;-0.66\n0.01;0.83;-0.55;-0.55\n0.01;0.92;-0.40;-0.40\n0.01;0;-1;-1\n0.01;0.08;-1.00;-1.00\n
0.01;0.17;-0.99;-0.99\n0.01;0.25;-0.97;-0.97\n0.01;0.33;-0.94;-0.94\n0.01;0.42;-0.91;-0.91\n0.01;0.50;-0.87;-0.87\n0.01;0.58;-0.81;-0.81\n0.01;0.67;-0.75;-0.75\n0.01;0.75;-0.66;-0.66\n0.01;0.83;-0.55;-0.55\n0.01;0.92;-0.40;-0.40\n0.0801;0;-1.00;-1.00\n0.0801;0.08;-0.99;-0.99\n0.0801;0.17;-0.98;-0.98\n0.0801;0.25;-0.96;-0.96\n0.0801;0.33;-0.94;-0.94\n0.0801;0.42;-0.91;-0.91\n
0.0801;0.50;-0.86;-0.86\n0.0801;0.58;-0.81;-0.81\n0.0801;0.67;-0.74;-0.74\n0.0801;0.75;-0.66;-0.66\n0.0801;0.83;-0.55;-0.55\n0.0801;0.92;-0.39;-0.39\n0.1701;0;-0.99;-0.99\n0.1701;0.08;-0.98;-0.98\n0.1701;0.17;-0.97;-0.97\n0.1701;0.25;-0.95;-0.95\n0.1701;0.33;-0.93;-0.93\n0.1701;0.42;-0.89;-0.89\n0.1701;0.50;-0.85;-0.85\n0.1701;0.58;-0.79;-0.79\n0.1701;0.67;-0.73;-0.73\n0.1701;0.75;-0.64;-0.64\n
0.1701;0.83;-0.53;-0.53\n0.1701;0.92;-0.36;-0.36\n0.2501;0;-0.97;-0.97\n0.2501;0.08;-0.96;-0.96\n0.2501;0.17;-0.95;-0.95\n0.2501;0.25;-0.94;-0.94\n0.2501;0.33;-0.91;-0.91\n0.2501;0.42;-0.87;-0.87\n0.2501;0.50;-0.83;-0.83\n0.2501;0.58;-0.77;-0.77\n0.2501;0.67;-0.70;-0.70\n0.2501;0.75;-0.61;-0.61\n0.2501;0.83;-0.49;-0.49\n0.2501;0.92;-0.31;-0.31\n0.3301;0;-0.94;-0.94\n0.3301;0.08;-0.94;-0.94\n
0.3301;0.17;-0.93;-0.93\n0.3301;0.25;-0.91;-0.91\n0.3301;0.33;-0.88;-0.88\n0.3301;0.42;-0.85;-0.85\n0.3301;0.50;-0.80;-0.80\n0.3301;0.58;-0.74;-0.74\n0.3301;0.67;-0.67;-0.67\n0.3301;0.75;-0.57;-0.57\n0.3301;0.83;-0.44;-0.44\n0.3301;0.92;-0.22;-0.22\n0.4201;0;-0.91;-0.91\n0.4201;0.08;-0.91;-0.91\n0.4201;0.17;-0.89;-0.89\n0.4201;0.25;-0.87;-0.87\n0.4201;0.33;-0.85;-0.85\n0.4201;0.42;-0.81;-0.81\n
0.4201;0.50;-0.76;-0.76\n0.4201;0.58;-0.70;-0.70\n0.4201;0.67;-0.62;-0.62\n0.4201;0.75;-0.51;-0.51\n0.4201;0.83;-0.36;-0.36\n0.5001;0;-0.87;-0.87\n0.5001;0.08;-0.86;-0.86\n0.5001;0.17;-0.85;-0.85\n0.5001;0.25;-0.83;-0.83\n0.5001;0.33;-0.80;-0.80\n0.5001;0.42;-0.76;-0.76\n0.5001;0.50;-0.71;-0.71\n0.5001;0.58;-0.64;-0.64\n0.5001;0.67;-0.55;-0.55\n0.5001;0.75;-0.43;-0.43\n0.5001;0.83;-0.24;-0.24\n
0.5801;0;-0.81;-0.81\n0.5801;0.08;-0.81;-0.81\n0.5801;0.17;-0.79;-0.79\n0.5801;0.25;-0.77;-0.77\n0.5801;0.33;-0.74;-0.74\n0.5801;0.42;-0.70;-0.70\n0.5801;0.50;-0.64;-0.64\n0.5801;0.58;-0.57;-0.57\n0.5801;0.67;-0.46;-0.46\n0.5801;0.75;-0.31;-0.31\n0.6701;0;-0.75;-0.75\n0.6701;0.08;-0.74;-0.74\n0.6701;0.17;-0.73;-0.73\n0.6701;0.25;-0.70;-0.70\n0.6701;0.33;-0.67;-0.67\n0.6701;0.42;-0.62;-0.62\n
0.6701;0.50;-0.55;-0.55\n0.6701;0.58;-0.46;-0.46\n0.6701;0.67;-0.33;-0.33\n0.7501;0;-0.66;-0.66\n0.7501;0.08;-0.66;-0.66\n0.7501;0.17;-0.64;-0.64\n0.7501;0.25;-0.61;-0.61\n0.7501;0.33;-0.57;-0.57\n0.7501;0.42;-0.51;-0.51\n0.7501;0.50;-0.43;-0.43\n0.7501;0.58;-0.31;-0.31\n0.8301;0;-0.55;-0.55\n0.8301;0.08;-0.55;-0.55\n0.8301;0.17;-0.53;-0.53\n0.8301;0.25;-0.49;-0.49\n0.8301;0.33;-0.44;-0.44\n0.8301;0.42;-0.36;-0.36\n0.8301;0.50;-0.24;-0.24\n0.9201;0;-0.40;-0.40\n0.9201;0.08;-0.39;-0.39\n0.9201;0.17;-0.36;-0.36\n0.9201;0.25;-0.31;-0.31\n0.9201;0.33;-0.22;-0.22";

    $examples_three= "X;Y;DisttoOrig;Multiplier;Row;Col;RealCol;CosZVal;DropletZVal\n" .
        "=-1*PI()+E>*PI()/12;=-1*PI()+G>*PI()/12;=sqrt(A>*A>+B>*B>);=cos(C>*PI()/sqrt(2*PI()*PI()));1;=E>;=MOD(F>|24);=cos(C>);=H>*D>\n";
    my $ord_line  = "=-1*PI()+E>*PI()/12;=-1*PI()+G>*PI()/12;=sqrt(A>*A>+B>*B>);=cos(C>*PI()/sqrt(2*PI()*PI()));=E^;=F^+1;=MOD(F>|24);=cos(C>);=H>*D>";
    my $last_line = "=-1*PI()+E>*PI()/12;=-1*PI()+G>*PI()/12;=sqrt(A>*A>+B>*B>);=cos(C>*PI()/sqrt(2*PI()*PI()));=E^+1;=F^+1;=MOD(F>|24);=cos(C>);=H>*D>";
    my $build_e3 = 0;
    for ($build_e3 = 0; $build_e3 < 23; $build_e3++)
    {
        $examples_three .= "$ord_line\n";
    }

    my $num_times;
    for ($num_times = 0; $num_times < 23; $num_times++)
    {
        $examples_three .= "$last_line\n";
        for ($build_e3 = 0; $build_e3 < 23; $build_e3++)
        {
            $examples_three .= "$ord_line\n";
        }
    }

    $examples_six= "X;Y;COL;X_FACTOR;Y_FACTOR;IN_CIRCLE;Z_VAL;XY_LEN\n";
#/*
# Double ball..
#    my $examples_six= "X;Y;COL;X_FACTOR;Y_FACTOR;IN_CIRCLE;Z_VAL;XY_LEN
#=D>/12;=E>/12;-280;=INT(C>|24);=MOD(C>|24)-12;=IF(J>>1|0|1);=sqrt(1 - I>);=IF(F><0.5|-100|G>+0);=A>*A>+B>*B>;=sqrt(A>*A>+B>*B>)\n";
#    my $l = "=D>/12;=E>/12;=C^+1;=INT(C>|24);=MOD(C>|24)-12;=IF(J>>1|0|1);=sqrt(1 - I>);=IF(F><0.5|-100|G>+0);=A>*A>+B>*B>;=sqrt(A>*A>+B>*B>)\n";
#    my $zzz = 0;
#    for ($zzz = 0; $zzz < 24*24; $zzz++)
#    {
#        $examples_six .= $l;
#    }
#
#    $l = "=A2+0.01;=E2/12;=C^+1;=D2;=E2;=F2;=-G2;=-H2;=I2;=J2\n";
#    $examples_six .= $l;
#    $l = "=A!+0.01;=E!/12;=C^+1;=D!;=E!;=F!;=-G!;=-H!;=I!;=J!\n";
#    $zzz = 0;
#    for ($zzz = 0; $zzz < 24*24; $zzz++)
#    {
#        $examples_six .= $l;
#    }
#    $l = "=A2+2;=E2/12;=C^+1;=D2;=E2;=F2;=G2;=H2;=I2;=J2\n";
#    $examples_six .= $l;
#    $zzz = 0;
#    $l = "=A!+2;=E!/12;=C^+1;=D!;=E!;=F!;=G!;=H!;=I!;=J!\n";
#    for ($zzz = 0; $zzz < 24*24*2; $zzz++)
#    {
#        $examples_six .= $l;
#    }
#*/

    my $zzz = 0;
    my $l = "=cos(E>);=sin(E>);=-280;=INT(C>|24)+C>/25;=MOD(C>|24)-12+C>/25;0;=(D>+12)*0.2;=J^\n";
    $examples_six .= $l;
    $l = "=cos(E>);=sin(E>);=C^+1;=INT(C>|24)+C>/25;=MOD(C>|24)-12+C>/25;0;=(D>+12)*0.2;=J^\n";
    for ($zzz = 0; $zzz < 50*12; $zzz++)
    {
        $examples_six .= $l;
    }

    $examples_four = "YearMon;DaysInMonth;LoanOwing;AnnualInterest;DailyInterest;MonthlyInterest;TotalOwing;InterestPerMonth;LeftOwing;Payments;TotalInterest
201901;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));650000;0.0500;=D2/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;4500;=H2
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+100-11;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>
=A^+1;=IF(MOD(A>|100)=1|31| IF(MOD(A>|100)=2|28| IF(MOD(A>|100)=3|31| IF(MOD(A>|100)=4|30| IF(MOD(A>|100)=5|31| IF(MOD(A>|100)=6|30| IF(MOD(A>|100)=7|31| IF(MOD(A>|100)=8|31| IF(MOD(A>|100)=9|30| IF(MOD(A>|100)=10|31| IF(MOD(A>|100)=11|30| IF(MOD(A>|100)=12|31|30))))))))))));=I^;=D^;=D>/365;=POWER(1+E>|B>);=C>*F>;=G>-C>;=G>-J>;=J^;=K^+H>";

        #my $examples_five= "CHANGE;REGEX; 123456;=REGEXPREPLACE(A>|^(.)(.)(.)(.)(.)(.)\$|\$2\$1\$4\$3\$6\$5); B^;=REGEXPREPLACE(A>|^(.)(.)(.)(.)(.)(.)\$|\$1\$3\$2\$5\$4\$6); B^;=REGEXPREPLACE(A>|^(.)(.)(.)(.)(.)(.)\$|\$2\$1\$4\$3\$6\$5); B^;=REGEXPREPLACE(A>|^(.)(.)(.)(.)(.)(.)\$|\$1\$3\$2\$5\$4\$6); B^;=REGEXPREPLACE(A>|^(.)(.)(.)(.)(.)(.)\$|\$2\$1\$4\$3\$6\$5);";

        $examples_five= "Date;HouseOffset;HouseVariable;HouseMonthsToGo;HouseIntRate;HouseRepayment;HouseInt;HouseOffsetInt;2HouseOffset;NumDaysInMonth;BalanceInOffset;NegOffset;OtherLoan;OtherIntRate;OtherInterest;ActualInterestPaid
202304;400672.53;481862.69;314;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+100-11;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;
=A^+1;=B^+I^-F^-O^-200;=C^+G^-H^-F^;=D^-1;0.0534;=PMT(E>/12|D>|C>);=C>*(POWER(1+E>/365|J>))-C>;=B>*(POWER(1+E>/365|J>))-B>;=IF(MOD(A>|100)>10|6000|4000);=IF(MOD(A>|100)=1|31|IF(MOD(A>|100)=2|28|IF(MOD(A>|100)=3|31|IF(MOD(A>|100)=4|30|IF(MOD(A>|100)=5|31|IF(MOD(A>|100)=6|30|IF(MOD(A>|100)=7|31|IF(MOD(A>|100)=8|31|IF(MOD(A>|100)=9|30|IF(MOD(A>|100)=10|31|IF(MOD(A>|100)=11|30|IF(MOD(A>|100)=12|31|30))))))))))));=C^-B^;=B^-C^;150000;0.0501;=M>*(POWER(1+E>/365|J>))-M>;=G>-H>+O>;";

    $examples_six= "X;Y;COL;X_FACTOR;Y_FACTOR;IN_CIRCLE;Z_VAL;XY_LEN
=D>/12;=E>/12;-280;=INT(C>|24);=MOD(C>|24)-12;=IF(J>>1|0|1);=sqrt(1 - I>);=IF(F><0.5|-100|G>+0);=A>*A>+B>*B>;=sqrt(A>*A>+B>*B>)
=D>/12;=E>/12;=C^+1;=INT(C>|24);=MOD(C>|24)-12;=IF(J>>1|0|1);=sqrt(1 - I>);=IF(F><0.5|-100|G>+0);=A>*A>+B>*B>;=sqrt(A>*A>+B>*B>)
=D>/12;=E>/12;=C^+1;=INT(C>|24);=MOD(C>|24)-12;=IF(J>>1|0|1);=sqrt(1 - I>);=IF(F><0.5|-100|G>+0);=A>*A>+B>*B>;=sqrt(A>*A>+B>*B>)
=D>/12;=E>/12;=C^+1;=INT(C>|24);=MOD(C>|24)-12;=IF(J>>1|0|1);=sqrt(1 - I>);=IF(F><0.5|-100|G>+0);=A>*A>+B>*B>;=sqrt(A>*A>+B>*B>)
=D>/12;=E>/12;=C^+1;=INT(C>|24);=MOD(C>|24)-12;=IF(J>>1|0|1);=sqrt(1 - I>);=IF(F><0.5|-100|G>+0);=A>*A>+B>*B>;=sqrt(A>*A>+B>*B>)
=D>/12;=E>/12;=C^+1;=INT(C>|24);=MOD(C>|24)-12;=IF(J>>1|0|1);=sqrt(1 - I>);=IF(F><0.5|-100|G>+0);=A>*A>+B>*B>;=sqrt(A>*A>+B>*B>)
=A2+0.01;=B2+0.01;=C2;=D2;=E2;=F2;=-G2;=H2;=I2;=J2
=A!+0.01;=B!+0.01;=C!;=D!;=E!;=F!;=-G!;=H!;=I!;=J!
=A!+0.01;=B!+0.01;=C!;=D!;=E!;=F!;=-G!;=H!;=I!;=J!
=A!+0.01;=B!+0.01;=C!;=D!;=E!;=F!;=-G!;=H!;=I!;=J!
=A!+0.01;=B!+0.01;=C!;=D!;=E!;=F!;=-G!;=H!;=I!;=J!
=A!+0.01;=B!+0.01;=C!;=D!;=E!;=F!;=-G!;=H!;=I!;=J!
====;====;====;====;====;====;====;====;====;====;====;====;====;====;====;====;====
Monday;Tuesday;Wednesday;Thursday;Friday;Saturday;Sunday;Totals
20240226;20240227;20240228;20240229;20240301;20240302;20240303;
1;1;1;2;2;0;0;=IF(SUM(A3:E3)-5>0|SUM(A3:E3)-5|0)
20240304;20240305;20240306;20240307;20240308;20240309;20240310;
1;2;2;2;2;0;0;=IF(SUM(A5:E5)-5>0|SUM(A5:E5)-5|0)
20240311;20240312;20240313;20240314;20240315;20240316;20240317;
1;2;2;2;2;0;0;=IF(SUM(A7:E7)-5>0|SUM(A7:E7)-5|0)
20240318;20240319;20240320;20240321;20240322;20240323;20240324;
2;2;1;2;2;0;0;=IF(SUM(A9:E9)-5>0|SUM(A9:E9)-5|0)
20240325;20240326;20240327;20240328;20240329;20240330;20240331;
2;2;1;2;1;0;0;=IF(SUM(A11:E11)-5>0|SUM(A11:E11)-5|0)
20240401;20240402;20240403;20240404;20240405;20240406;20240407;
1;1;1;2;2;0;0;=IF(SUM(A13:E13)-5>0|SUM(A13:E13)-5|0)
20240408;20240409;20240410;20240411;20240412;20240413;20240414;
2;2;1;2;1;0;0;=IF(SUM(A15:E15)-5>0|SUM(A15:E15)-5|0)
20240415;20240416;20240417;20240418;20240419;20240420;20240421;
2;1;1;1;1;0;0;=IF(SUM(A17:E17)-5>0|SUM(A17:E17)-5|0)
20240422;20240423;20240424;20240425;20240426;20240427;20240428;
1;1;1;1;1;0;0;=IF(SUM(A19:E19)-5>0|SUM(A19:E19)-5|0)
20240429;20240430;20240501;20240502;20240503;20240504;20240505;
1;2;1;1;1;0;0;=IF(SUM(A21:E21)-5>0|SUM(A21:E21)-5|0)
20240506;20240507;20240508;20240509;20240510;20240511;20240512;
1;1;1;1;1;0;0;=IF(SUM(A23:E23)-5>0|SUM(A23:E23)-5|0)
20240513;20240514;20240515;;;;;
1;1;1;;;;;=IF(SUM(A25:E25)-5>0|SUM(A25:E25)-5|0)";

    $examples_seven= "SPHERE_X;SPHERE_Y;QUARTER_SPHERE_Z
1;0;0
0.991444861;0.130526192;0
0.991444861;0;0.130526192
0.982962913;0.129409523;0.130526192
0.991444861;0;0.130526192
0.982962913;0.129409523;0.130526192
0.965925826;0;0.258819045
0.957662197;0.12607862;0.258819045
0.965925826;0;0.258819045
0.957662197;0.12607862;0.258819045
0.923879533;0;0.382683432
0.915975615;0.120590477;0.382683432
0.923879533;0;0.382683432
0.915975615;0.120590477;0.382683432
0.866025404;0;0.5
0.858616436;0.113038998;0.5
0.866025404;0;0.5
0.858616436;0.113038998;0.5
0.79335334;0;0.608761429
0.786566092;0.103553391;0.608761429
0.79335334;0;0.608761429
0.786566092;0.103553391;0.608761429
0.707106781;0;0.707106781
0.701057385;0.092295956;0.707106781
0.707106781;0;0.707106781
0.701057385;0.092295956;0.707106781
0.608761429;0;0.79335334
0.603553391;0.079459311;0.79335334
0.608761429;0;0.79335334
0.603553391;0.079459311;0.79335334
0.5;0;0.866025404
0.495722431;0.065263096;0.866025404
0.5;0;0.866025404
0.495722431;0.065263096;0.866025404
0.382683432;0;0.923879533
0.379409523;0.049950211;0.923879533
0.382683432;0;0.923879533
0.379409523;0.049950211;0.923879533
0.258819045;0;0.965925826
0.256604812;0.033782664;0.965925826
0.258819045;0;0.965925826
0.256604812;0.033782664;0.965925826
0.130526192;0;0.991444861
0.129409523;0.017037087;0.991444861
0.130526192;0;0.991444861
0.129409523;0.017037087;0.991444861
0;0;1
0;0;1
0;0;1
0;0;1
0.129409523;0.017037087;0.991444861
0.12607862;0.033782664;0.991444861
0.129409523;0.017037087;0.991444861
0.12607862;0.033782664;0.991444861
0.256604812;0.033782664;0.965925826
0.25;0.066987298;0.965925826
0.256604812;0.033782664;0.965925826
0.25;0.066987298;0.965925826
0.379409523;0.049950211;0.923879533
0.369643811;0.099045761;0.923879533
0.379409523;0.049950211;0.923879533
0.369643811;0.099045761;0.923879533
0.495722431;0.065263096;0.866025404
0.482962913;0.129409523;0.866025404
0.495722431;0.065263096;0.866025404
0.482962913;0.129409523;0.866025404
0.603553391;0.079459311;0.79335334
0.588018386;0.157559052;0.79335334
0.603553391;0.079459311;0.79335334
0.588018386;0.157559052;0.79335334
0.701057385;0.092295956;0.707106781
0.683012702;0.183012702;0.707106781
0.701057385;0.092295956;0.707106781
0.683012702;0.183012702;0.707106781
0.786566092;0.103553391;0.608761429
0.766320481;0.205334954;0.608761429
0.786566092;0.103553391;0.608761429
0.766320481;0.205334954;0.608761429
0.858616436;0.113038998;0.5
0.836516304;0.224143868;0.5
0.858616436;0.113038998;0.5
0.836516304;0.224143868;0.5
0.915975615;0.120590477;0.382683432
0.892399101;0.239117618;0.382683432
0.915975615;0.120590477;0.382683432
0.892399101;0.239117618;0.382683432
0.957662197;0.12607862;0.258819045
0.933012702;0.25;0.258819045
0.957662197;0.12607862;0.258819045
0.933012702;0.25;0.258819045
0.982962913;0.129409523;0.130526192
0.957662197;0.256604812;0.130526192
0.982962913;0.129409523;0.130526192
0.957662197;0.256604812;0.130526192
0.991444861;0.130526192;0
0.965925826;0.258819045;0
0.965925826;0.258819045;0
0.923879533;0.382683432;0
0.957662197;0.256604812;0.130526192
0.915975615;0.379409523;0.130526192
0.957662197;0.256604812;0.130526192
0.915975615;0.379409523;0.130526192
0.933012702;0.25;0.258819045
0.892399101;0.369643811;0.258819045
0.933012702;0.25;0.258819045
0.892399101;0.369643811;0.258819045
0.892399101;0.239117618;0.382683432
0.853553391;0.353553391;0.382683432
0.892399101;0.239117618;0.382683432
0.853553391;0.353553391;0.382683432
0.836516304;0.224143868;0.5
0.800103145;0.331413574;0.5
0.836516304;0.224143868;0.5
0.800103145;0.331413574;0.5
0.766320481;0.205334954;0.608761429
0.732962913;0.303603179;0.608761429
0.766320481;0.205334954;0.608761429
0.732962913;0.303603179;0.608761429
0.683012702;0.183012702;0.707106781
0.653281482;0.27059805;0.707106781
0.683012702;0.183012702;0.707106781
0.653281482;0.27059805;0.707106781
0.588018386;0.157559052;0.79335334
0.562422224;0.232962913;0.79335334
0.588018386;0.157559052;0.79335334
0.562422224;0.232962913;0.79335334
0.482962913;0.129409523;0.866025404
0.461939766;0.191341716;0.866025404
0.482962913;0.129409523;0.866025404
0.461939766;0.191341716;0.866025404
0.369643811;0.099045761;0.923879533
0.353553391;0.146446609;0.923879533
0.369643811;0.099045761;0.923879533
0.353553391;0.146446609;0.923879533
0.25;0.066987298;0.965925826
0.239117618;0.099045761;0.965925826
0.25;0.066987298;0.965925826
0.239117618;0.099045761;0.965925826
0.12607862;0.033782664;0.991444861
0.120590477;0.049950211;0.991444861
0.12607862;0.033782664;0.991444861
0.120590477;0.049950211;0.991444861
0;0;1
0;0;1
0;0;1
0;0;1
0.120590477;0.049950211;0.991444861
0.113038998;0.065263096;0.991444861
0.120590477;0.049950211;0.991444861
0.113038998;0.065263096;0.991444861
0.239117618;0.099045761;0.965925826
0.224143868;0.129409523;0.965925826
0.239117618;0.099045761;0.965925826
0.224143868;0.129409523;0.965925826
0.353553391;0.146446609;0.923879533
0.331413574;0.191341716;0.923879533
0.353553391;0.146446609;0.923879533
0.331413574;0.191341716;0.923879533
0.461939766;0.191341716;0.866025404
0.433012702;0.25;0.866025404
0.461939766;0.191341716;0.866025404
0.433012702;0.25;0.866025404
0.562422224;0.232962913;0.79335334
0.527202862;0.304380715;0.79335334
0.562422224;0.232962913;0.79335334
0.527202862;0.304380715;0.79335334
0.653281482;0.27059805;0.707106781
0.612372436;0.353553391;0.707106781
0.653281482;0.27059805;0.707106781
0.612372436;0.353553391;0.707106781
0.732962913;0.303603179;0.608761429
0.687064147;0.39667667;0.608761429
0.732962913;0.303603179;0.608761429
0.687064147;0.39667667;0.608761429
0.800103145;0.331413574;0.5
0.75;0.433012702;0.5
0.800103145;0.331413574;0.5
0.75;0.433012702;0.5
0.853553391;0.353553391;0.382683432
0.800103145;0.461939766;0.382683432
0.853553391;0.353553391;0.382683432
0.800103145;0.461939766;0.382683432
0.892399101;0.369643811;0.258819045
0.836516304;0.482962913;0.258819045
0.892399101;0.369643811;0.258819045
0.836516304;0.482962913;0.258819045
0.915975615;0.379409523;0.130526192
0.858616436;0.495722431;0.130526192
0.915975615;0.379409523;0.130526192
0.858616436;0.495722431;0.130526192
0.923879533;0.382683432;0
0.866025404;0.5;0
0.866025404;0.5;0
0.79335334;0.608761429;0
0.858616436;0.495722431;0.130526192
0.786566092;0.603553391;0.130526192
0.858616436;0.495722431;0.130526192
0.786566092;0.603553391;0.130526192
0.836516304;0.482962913;0.258819045
0.766320481;0.588018386;0.258819045
0.836516304;0.482962913;0.258819045
0.766320481;0.588018386;0.258819045
0.800103145;0.461939766;0.382683432
0.732962913;0.562422224;0.382683432
0.800103145;0.461939766;0.382683432
0.732962913;0.562422224;0.382683432
0.75;0.433012702;0.5
0.687064147;0.527202862;0.5
0.75;0.433012702;0.5
0.687064147;0.527202862;0.5
0.687064147;0.39667667;0.608761429
0.629409523;0.482962913;0.608761429
0.687064147;0.39667667;0.608761429
0.629409523;0.482962913;0.608761429
0.612372436;0.353553391;0.707106781
0.560985527;0.430459335;0.707106781
0.612372436;0.353553391;0.707106781
0.560985527;0.430459335;0.707106781
0.527202862;0.304380715;0.79335334
0.482962913;0.370590477;0.79335334
0.527202862;0.304380715;0.79335334
0.482962913;0.370590477;0.79335334
0.433012702;0.25;0.866025404
0.39667667;0.304380715;0.866025404
0.433012702;0.25;0.866025404
0.39667667;0.304380715;0.866025404
0.331413574;0.191341716;0.923879533
0.303603179;0.232962913;0.923879533
0.331413574;0.191341716;0.923879533
0.303603179;0.232962913;0.923879533
0.224143868;0.129409523;0.965925826
0.205334954;0.157559052;0.965925826
0.224143868;0.129409523;0.965925826
0.205334954;0.157559052;0.965925826
0.113038998;0.065263096;0.991444861
0.103553391;0.079459311;0.991444861
0.113038998;0.065263096;0.991444861
0.103553391;0.079459311;0.991444861
0;0;1
0;0;1
0;0;1
0;0;1
0.103553391;0.079459311;0.991444861
0.092295956;0.092295956;0.991444861
0.103553391;0.079459311;0.991444861
0.092295956;0.092295956;0.991444861
0.205334954;0.157559052;0.965925826
0.183012702;0.183012702;0.965925826
0.205334954;0.157559052;0.965925826
0.183012702;0.183012702;0.965925826
0.303603179;0.232962913;0.923879533
0.27059805;0.27059805;0.923879533
0.303603179;0.232962913;0.923879533
0.27059805;0.27059805;0.923879533
0.39667667;0.304380715;0.866025404
0.353553391;0.353553391;0.866025404
0.39667667;0.304380715;0.866025404
0.353553391;0.353553391;0.866025404
0.482962913;0.370590477;0.79335334
0.430459335;0.430459335;0.79335334
0.482962913;0.370590477;0.79335334
0.430459335;0.430459335;0.79335334
0.560985527;0.430459335;0.707106781
0.5;0.5;0.707106781
0.560985527;0.430459335;0.707106781
0.5;0.5;0.707106781
0.629409523;0.482962913;0.608761429
0.560985527;0.560985527;0.608761429
0.629409523;0.482962913;0.608761429
0.560985527;0.560985527;0.608761429
0.687064147;0.527202862;0.5
0.612372436;0.612372436;0.5
0.687064147;0.527202862;0.5
0.612372436;0.612372436;0.5
0.732962913;0.562422224;0.382683432
0.653281482;0.653281482;0.382683432
0.732962913;0.562422224;0.382683432
0.653281482;0.653281482;0.382683432
0.766320481;0.588018386;0.258819045
0.683012702;0.683012702;0.258819045
0.766320481;0.588018386;0.258819045
0.683012702;0.683012702;0.258819045
0.786566092;0.603553391;0.130526192
0.701057385;0.701057385;0.130526192
0.786566092;0.603553391;0.130526192
0.701057385;0.701057385;0.130526192
0.79335334;0.608761429;0
0.707106781;0.707106781;0
0.707106781;0.707106781;0
0.608761429;0.79335334;0
0.701057385;0.701057385;0.130526192
0.603553391;0.786566092;0.130526192
0.701057385;0.701057385;0.130526192
0.603553391;0.786566092;0.130526192
0.683012702;0.683012702;0.258819045
0.588018386;0.766320481;0.258819045
0.683012702;0.683012702;0.258819045
0.588018386;0.766320481;0.258819045
0.653281482;0.653281482;0.382683432
0.562422224;0.732962913;0.382683432
0.653281482;0.653281482;0.382683432
0.562422224;0.732962913;0.382683432
0.612372436;0.612372436;0.5
0.527202862;0.687064147;0.5
0.612372436;0.612372436;0.5
0.527202862;0.687064147;0.5
0.560985527;0.560985527;0.608761429
0.482962913;0.629409523;0.608761429
0.560985527;0.560985527;0.608761429
0.482962913;0.629409523;0.608761429
0.5;0.5;0.707106781
0.430459335;0.560985527;0.707106781
0.5;0.5;0.707106781
0.430459335;0.560985527;0.707106781
0.430459335;0.430459335;0.79335334
0.370590477;0.482962913;0.79335334
0.430459335;0.430459335;0.79335334
0.370590477;0.482962913;0.79335334
0.353553391;0.353553391;0.866025404
0.304380715;0.39667667;0.866025404
0.353553391;0.353553391;0.866025404
0.304380715;0.39667667;0.866025404
0.27059805;0.27059805;0.923879533
0.232962913;0.303603179;0.923879533
0.27059805;0.27059805;0.923879533
0.232962913;0.303603179;0.923879533
0.183012702;0.183012702;0.965925826
0.157559052;0.205334954;0.965925826
0.183012702;0.183012702;0.965925826
0.157559052;0.205334954;0.965925826
0.092295956;0.092295956;0.991444861
0.079459311;0.103553391;0.991444861
0.092295956;0.092295956;0.991444861
0.079459311;0.103553391;0.991444861
0;0;1
0;0;1
0;0;1
0;0;1
0.079459311;0.103553391;0.991444861
0.065263096;0.113038998;0.991444861
0.079459311;0.103553391;0.991444861
0.065263096;0.113038998;0.991444861
0.157559052;0.205334954;0.965925826
0.129409523;0.224143868;0.965925826
0.157559052;0.205334954;0.965925826
0.129409523;0.224143868;0.965925826
0.232962913;0.303603179;0.923879533
0.191341716;0.331413574;0.923879533
0.232962913;0.303603179;0.923879533
0.191341716;0.331413574;0.923879533
0.304380715;0.39667667;0.866025404
0.25;0.433012702;0.866025404
0.304380715;0.39667667;0.866025404
0.25;0.433012702;0.866025404
0.370590477;0.482962913;0.79335334
0.304380715;0.527202862;0.79335334
0.370590477;0.482962913;0.79335334
0.304380715;0.527202862;0.79335334
0.430459335;0.560985527;0.707106781
0.353553391;0.612372436;0.707106781
0.430459335;0.560985527;0.707106781
0.353553391;0.612372436;0.707106781
0.482962913;0.629409523;0.608761429
0.39667667;0.687064147;0.608761429
0.482962913;0.629409523;0.608761429
0.39667667;0.687064147;0.608761429
0.527202862;0.687064147;0.5
0.433012702;0.75;0.5
0.527202862;0.687064147;0.5
0.433012702;0.75;0.5
0.562422224;0.732962913;0.382683432
0.461939766;0.800103145;0.382683432
0.562422224;0.732962913;0.382683432
0.461939766;0.800103145;0.382683432
0.588018386;0.766320481;0.258819045
0.482962913;0.836516304;0.258819045
0.588018386;0.766320481;0.258819045
0.482962913;0.836516304;0.258819045
0.603553391;0.786566092;0.130526192
0.495722431;0.858616436;0.130526192
0.603553391;0.786566092;0.130526192
0.495722431;0.858616436;0.130526192
0.608761429;0.79335334;0
0.5;0.866025404;0
0.5;0.866025404;0
0.382683432;0.923879533;0
0.495722431;0.858616436;0.130526192
0.379409523;0.915975615;0.130526192
0.495722431;0.858616436;0.130526192
0.379409523;0.915975615;0.130526192
0.482962913;0.836516304;0.258819045
0.369643811;0.892399101;0.258819045
0.482962913;0.836516304;0.258819045
0.369643811;0.892399101;0.258819045
0.461939766;0.800103145;0.382683432
0.353553391;0.853553391;0.382683432
0.461939766;0.800103145;0.382683432
0.353553391;0.853553391;0.382683432
0.433012702;0.75;0.5
0.331413574;0.800103145;0.5
0.433012702;0.75;0.5
0.331413574;0.800103145;0.5
0.39667667;0.687064147;0.608761429
0.303603179;0.732962913;0.608761429
0.39667667;0.687064147;0.608761429
0.303603179;0.732962913;0.608761429
0.353553391;0.612372436;0.707106781
0.27059805;0.653281482;0.707106781
0.353553391;0.612372436;0.707106781
0.27059805;0.653281482;0.707106781
0.304380715;0.527202862;0.79335334
0.232962913;0.562422224;0.79335334
0.304380715;0.527202862;0.79335334
0.232962913;0.562422224;0.79335334
0.25;0.433012702;0.866025404
0.191341716;0.461939766;0.866025404
0.25;0.433012702;0.866025404
0.191341716;0.461939766;0.866025404
0.191341716;0.331413574;0.923879533
0.146446609;0.353553391;0.923879533
0.191341716;0.331413574;0.923879533
0.146446609;0.353553391;0.923879533
0.129409523;0.224143868;0.965925826
0.099045761;0.239117618;0.965925826
0.129409523;0.224143868;0.965925826
0.099045761;0.239117618;0.965925826
0.065263096;0.113038998;0.991444861
0.049950211;0.120590477;0.991444861
0.065263096;0.113038998;0.991444861
0.049950211;0.120590477;0.991444861
0;0;1
0;0;1
0;0;1
0;0;1
0.049950211;0.120590477;0.991444861
0.033782664;0.12607862;0.991444861
0.049950211;0.120590477;0.991444861
0.033782664;0.12607862;0.991444861
0.099045761;0.239117618;0.965925826
0.066987298;0.25;0.965925826
0.099045761;0.239117618;0.965925826
0.066987298;0.25;0.965925826
0.146446609;0.353553391;0.923879533
0.099045761;0.369643811;0.923879533
0.146446609;0.353553391;0.923879533
0.099045761;0.369643811;0.923879533
0.191341716;0.461939766;0.866025404
0.129409523;0.482962913;0.866025404
0.191341716;0.461939766;0.866025404
0.129409523;0.482962913;0.866025404
0.232962913;0.562422224;0.79335334
0.157559052;0.588018386;0.79335334
0.232962913;0.562422224;0.79335334
0.157559052;0.588018386;0.79335334
0.27059805;0.653281482;0.707106781
0.183012702;0.683012702;0.707106781
0.27059805;0.653281482;0.707106781
0.183012702;0.683012702;0.707106781
0.303603179;0.732962913;0.608761429
0.205334954;0.766320481;0.608761429
0.303603179;0.732962913;0.608761429
0.205334954;0.766320481;0.608761429
0.331413574;0.800103145;0.5
0.224143868;0.836516304;0.5
0.331413574;0.800103145;0.5
0.224143868;0.836516304;0.5
0.353553391;0.853553391;0.382683432
0.239117618;0.892399101;0.382683432
0.353553391;0.853553391;0.382683432
0.239117618;0.892399101;0.382683432
0.369643811;0.892399101;0.258819045
0.25;0.933012702;0.258819045
0.369643811;0.892399101;0.258819045
0.25;0.933012702;0.258819045
0.379409523;0.915975615;0.130526192
0.256604812;0.957662197;0.130526192
0.379409523;0.915975615;0.130526192
0.256604812;0.957662197;0.130526192
0.382683432;0.923879533;0
0.258819045;0.965925826;0
0.258819045;0.965925826;0
0.130526192;0.991444861;0
0.256604812;0.957662197;0.130526192
0.129409523;0.982962913;0.130526192
0.256604812;0.957662197;0.130526192
0.129409523;0.982962913;0.130526192
0.25;0.933012702;0.258819045
0.12607862;0.957662197;0.258819045
0.25;0.933012702;0.258819045
0.12607862;0.957662197;0.258819045
0.239117618;0.892399101;0.382683432
0.120590477;0.915975615;0.382683432
0.239117618;0.892399101;0.382683432
0.120590477;0.915975615;0.382683432
0.224143868;0.836516304;0.5
0.113038998;0.858616436;0.5
0.224143868;0.836516304;0.5
0.113038998;0.858616436;0.5
0.205334954;0.766320481;0.608761429
0.103553391;0.786566092;0.608761429
0.205334954;0.766320481;0.608761429
0.103553391;0.786566092;0.608761429
0.183012702;0.683012702;0.707106781
0.092295956;0.701057385;0.707106781
0.183012702;0.683012702;0.707106781
0.092295956;0.701057385;0.707106781
0.157559052;0.588018386;0.79335334
0.079459311;0.603553391;0.79335334
0.157559052;0.588018386;0.79335334
0.079459311;0.603553391;0.79335334
0.129409523;0.482962913;0.866025404
0.065263096;0.495722431;0.866025404
0.129409523;0.482962913;0.866025404
0.065263096;0.495722431;0.866025404
0.099045761;0.369643811;0.923879533
0.049950211;0.379409523;0.923879533
0.099045761;0.369643811;0.923879533
0.049950211;0.379409523;0.923879533
0.066987298;0.25;0.965925826
0.033782664;0.256604812;0.965925826
0.066987298;0.25;0.965925826
0.033782664;0.256604812;0.965925826
0.033782664;0.12607862;0.991444861
0.017037087;0.129409523;0.991444861
0.033782664;0.12607862;0.991444861
0.017037087;0.129409523;0.991444861
0;0;1
0;0;1
0;0;1
0;0;1
0.017037087;0.129409523;0.991444861
0;0.130526192;0.991444861
0.017037087;0.129409523;0.991444861
0;0.130526192;0.991444861
0.033782664;0.256604812;0.965925826
0;0.258819045;0.965925826
0.033782664;0.256604812;0.965925826
0;0.258819045;0.965925826
0.049950211;0.379409523;0.923879533
0;0.382683432;0.923879533
0.049950211;0.379409523;0.923879533
0;0.382683432;0.923879533
0.065263096;0.495722431;0.866025404
0;0.5;0.866025404
0.065263096;0.495722431;0.866025404
0;0.5;0.866025404
0.079459311;0.603553391;0.79335334
0;0.608761429;0.79335334
0.079459311;0.603553391;0.79335334
0;0.608761429;0.79335334
0.092295956;0.701057385;0.707106781
0;0.707106781;0.707106781
0.092295956;0.701057385;0.707106781
0;0.707106781;0.707106781
0.103553391;0.786566092;0.608761429
0;0.79335334;0.608761429
0.103553391;0.786566092;0.608761429
0;0.79335334;0.608761429
0.113038998;0.858616436;0.5
0;0.866025404;0.5
0.113038998;0.858616436;0.5
0;0.866025404;0.5
0.120590477;0.915975615;0.382683432
0;0.923879533;0.382683432
0.120590477;0.915975615;0.382683432
0;0.923879533;0.382683432
0.12607862;0.957662197;0.258819045
0;0.965925826;0.258819045
0.12607862;0.957662197;0.258819045
0;0.965925826;0.258819045
0.129409523;0.982962913;0.130526192
0;0.991444861;0.130526192
0.129409523;0.982962913;0.130526192
0;0.991444861;0.130526192
0.130526192;0.991444861;0
0;1;0
0;1;0
-0.130526192;0.991444861;0
0;0.991444861;0.130526192
-0.129409523;0.982962913;0.130526192
0;0.991444861;0.130526192
-0.129409523;0.982962913;0.130526192
0;0.965925826;0.258819045
-0.12607862;0.957662197;0.258819045
0;0.965925826;0.258819045
-0.12607862;0.957662197;0.258819045
0;0.923879533;0.382683432
-0.120590477;0.915975615;0.382683432
0;0.923879533;0.382683432
-0.120590477;0.915975615;0.382683432
0;0.866025404;0.5
-0.113038998;0.858616436;0.5
0;0.866025404;0.5
-0.113038998;0.858616436;0.5
0;0.79335334;0.608761429
-0.103553391;0.786566092;0.608761429
0;0.79335334;0.608761429
-0.103553391;0.786566092;0.608761429
0;0.707106781;0.707106781
-0.092295956;0.701057385;0.707106781
0;0.707106781;0.707106781
-0.092295956;0.701057385;0.707106781
0;0.608761429;0.79335334
-0.079459311;0.603553391;0.79335334
0;0.608761429;0.79335334
-0.079459311;0.603553391;0.79335334
0;0.5;0.866025404
-0.065263096;0.495722431;0.866025404
0;0.5;0.866025404
-0.065263096;0.495722431;0.866025404
0;0.382683432;0.923879533
-0.049950211;0.379409523;0.923879533
0;0.382683432;0.923879533
-0.049950211;0.379409523;0.923879533
0;0.258819045;0.965925826
-0.033782664;0.256604812;0.965925826
0;0.258819045;0.965925826
-0.033782664;0.256604812;0.965925826
0;0.130526192;0.991444861
-0.017037087;0.129409523;0.991444861
0;0.130526192;0.991444861
-0.017037087;0.129409523;0.991444861
0;0;1
0;0;1
0;0;1
0;0;1
-0.017037087;0.129409523;0.991444861
-0.033782664;0.12607862;0.991444861
-0.017037087;0.129409523;0.991444861
-0.033782664;0.12607862;0.991444861
-0.033782664;0.256604812;0.965925826
-0.066987298;0.25;0.965925826
-0.033782664;0.256604812;0.965925826
-0.066987298;0.25;0.965925826
-0.049950211;0.379409523;0.923879533
-0.099045761;0.369643811;0.923879533
-0.049950211;0.379409523;0.923879533
-0.099045761;0.369643811;0.923879533
-0.065263096;0.495722431;0.866025404
-0.129409523;0.482962913;0.866025404
-0.065263096;0.495722431;0.866025404
-0.129409523;0.482962913;0.866025404
-0.079459311;0.603553391;0.79335334
-0.157559052;0.588018386;0.79335334
-0.079459311;0.603553391;0.79335334
-0.157559052;0.588018386;0.79335334
-0.092295956;0.701057385;0.707106781
-0.183012702;0.683012702;0.707106781
-0.092295956;0.701057385;0.707106781
-0.183012702;0.683012702;0.707106781
-0.103553391;0.786566092;0.608761429
-0.205334954;0.766320481;0.608761429
-0.103553391;0.786566092;0.608761429
-0.205334954;0.766320481;0.608761429
-0.113038998;0.858616436;0.5
-0.224143868;0.836516304;0.5
-0.113038998;0.858616436;0.5
-0.224143868;0.836516304;0.5
-0.120590477;0.915975615;0.382683432
-0.239117618;0.892399101;0.382683432
-0.120590477;0.915975615;0.382683432
-0.239117618;0.892399101;0.382683432
-0.12607862;0.957662197;0.258819045
-0.25;0.933012702;0.258819045
-0.12607862;0.957662197;0.258819045
-0.25;0.933012702;0.258819045
-0.129409523;0.982962913;0.130526192
-0.256604812;0.957662197;0.130526192
-0.129409523;0.982962913;0.130526192
-0.256604812;0.957662197;0.130526192
-0.130526192;0.991444861;0
-0.258819045;0.965925826;0";
}

sub is_authorized
{
    my $x_forwarded_for_addr = $_ [0];
    my $server_ip = $_ [1];
    my $tc_client = $x_forwarded_for_addr;
    $tc_client = $x_forwarded_for_addr;
    $tc_client =~ s/\W*$//img;

    # Hack to see if client local?
    if (!($x_forwarded_for_addr =~ m/192\.168\.1\./ || $x_forwarded_for_addr =~ m/127\.0\.0\.1/ || $tc_client eq $server_ip))
    {
        return 0;
    }
    return 1;
}

my %safe_csv_data;
sub switch_to_safe_csv
{
    my $switch_to_safe = $_ [0];
    if ($switch_to_safe && !$in_safe_csv_data)
    {
        $in_safe_csv_data = 1;
        my $new_csv = `type  d:\\perl_programs\\csv_ingest\\safe_example.txt`;
        process_csv_data ($new_csv, "DONT_SAVE");
    }
    elsif (!$switch_to_safe)
    {
        $in_safe_csv_data = 0;
    }
}

my $NOT_AUTHORIZED_HTML = "<html> <head> <META HTTP-EQUIV=\"CACHE-CONTROL\" CONTENT=\"NO-CACHE\"> <br> <META HTTP-EQUIV=\"EXPIRES\" CONTENT=\"Mon, 22 Jul 2094 11:12:01 GMT\"> </head> <body> <h1>Unauthorized access</h1><a href=\"\/csv_analyse\/refresh_server_ip\">Refresh cached server IP here</a><br>Attempted function:&nbsp;";

# Main
{
    my $paddr;
    my $proto = "TCP";
    my $iaddr;
    my $client_port;
    my $client_addr;
    my $server_ip = `curl -s GET "http://icanhazip.com"`;
    $server_ip =~ s/\W*$//img;
    my $pid;
    my $SERVER;
    my $port = 3867;
    my $trusted_client;
    my $data_from_client;
    my $use_regex = 0;
    $|=1;

    socket (SERVER, PF_INET, SOCK_STREAM, $proto) or die "Failed to create a socket: $!";
    setsockopt (SERVER, SOL_SOCKET, SO_REUSEADDR, 1) or die "setsocketopt: $!";

    # bind to a port, then listen
    bind (SERVER, sockaddr_in ($port, INADDR_ANY)) or die "Can't bind to port $port! \n";

    listen (SERVER, 10) or die "listen: $!";
    print ("Listening on port: $port\n");
    my $count;
    my $not_seen_full = 1;

    #process_csv_data ("BOB;BOB;CALCULATION;STR_CALCULATION;sadf;asdf;asdf;asdfasdf 1;3;4.25076923;AAA;;;; 2;5;=IF(C2+0.31/2>10|10|C2+0.31/2);=IF(C2+0.31/2>10|\"BBB\"|CONCATENATE(D2|\"A\"));;;; 12;15;=IF(C3+0.31/2>10|10|C3+0.31/2);=IF(C3+0.31/2>10|\"BBB\"|CONCATENATE(D3|\"B\"));=IF(F3+0.31/2>10|10|F3+0.31/2);=IF(G3+0.31/2>10|10|G3+0.31/2);=IF(H3+0.31/2>10|10|H3+0.31/2);=IF(I3+0.31/2>10|10|I3+0.31/2) =SUM(A2:A4);=SUM(B2:B4);=IF(C4+0.31/2>10|10|C4+0.31/2);=IF(C4+0.31/2>10|\"BBB\"|CONCATENATE(D4|\"B\"));=IF(E4+0.31/2>10|10|E4+0.31/2);=IF(F4+0.31/2>10|10|F4+0.31/2);=IF(G4+0.31/2>10|10|G4+0.31/2);=IF(H4+0.31/2>10|10|H4+0.31/2) =A2+A3+A4;=B2+B3+B4;=IF(C5+0.31/2>10|10|C5+0.31/2);=IF(C5+0.31/2>10|\"BBB\"|CONCATENATE(D5|\"B\"));=IF(E5+0.31/2>10|10|E5+0.31/2);=IF(F5+0.31/2>10|10|F5+0.31/2);=IF(G5+0.31/2>10|10|G5+0.31/2);=IF(H5+0.31/2>10|10|H5+0.31/2) ;;=IF(C6+0.31/2>10|10|C6+0.31/2);=IF(C6+0.31/2>10|\"BBB\"|CONCATENATE(D6|\"B\"));=IF(E6+0.31/2>10|10|E6+0.31/2);=IF(F6+0.31/2>10|10|F6+0.31/2);=IF(G6+0.31/2>10|10|G6+0.31/2);=IF(H6+0.31/2>10|10|H6+0.31/2) =POWER(SUM(A2:B4)|SUM(A2:A4));;=IF(C7+0.31/2>10|10|C7+0.31/2);=IF(C7+0.31/2>10|\"BBB\"|CONCATENATE(D7|\"B\"));=IF(E7+0.31/2>10|10|E7+0.31/2);=IF(F7+0.31/2>10|10|F7+0.31/2);=IF(G7+0.31/2>10|10|G7+0.31/2);=IF(H7+0.31/2>10|10|H7+0.31/2) ;;=IF(C8+0.31/2>10|10|C8+0.31/2);=IF(C8+0.31/2>10|\"BBB\"|CONCATENATE(D8|\"B\"));=IF(E8+0.31/2>10|10|E8+0.31/2);=IF(F8+0.31/2>10|10|F8+0.31/2);=IF(G8+0.31/2>10|10|G8+0.31/2);=IF(H8+0.31/2>10|10|H8+0.31/2) ;;=IF(C9+0.31/2>10|10|C9+0.31/2);=IF(C9+0.31/2>10|\"BBB\"|CONCATENATE(D9|\"B\"));=IF(E9+0.31/2>10|10|E9+0.31/2);=IF(F9+0.31/2>10|10|F9+0.31/2);=IF(G9+0.31/2>10|10|G9+0.31/2);=IF(H9+0.31/2>10|10|H9+0.31/2) ;;=IF(C10+0.31/2>10|10|C10+0.31/2);=IF(C10+0.31/2>10|\"BBB\"|CONCATENATE(D10|\"B\"));=IF(E10+0.31/2>10|10|E10+0.31/2);=IF(F10+0.31/2>10|10|F10+0.31/2);=IF(G10+0.31/2>10|10|G10+0.31/2);=IF(H10+0.31/2>10|10|H10+0.31/2) ;;=IF(C11+0.31/2>10|10|C11+0.31/2);=IF(C11+0.31/2>10|\"BBB\"|CONCATENATE(D11|\"B\"));=SUM(E4:H11);=IF(MOD(A3|100)=1|\"JANUARY\"|IF(MOD(A3|100)=2|\"FEB\"|\"HHHH\"));;; ");
    #process_csv_data ("X;Y;Z 12;9;10 5;6;13 1;12;13 12;2;7 14;13;7 15;14;2 15;6;9 13;2;10 8;5;10 11;5;5");

    set_examples ();

    process_csv_data ($examples_six);

    while ($paddr = accept (CLIENT, SERVER))
    {
        print ("\n\nNEW============================================================\n");
        print ("New connection\n");
        ($client_port, $iaddr) = sockaddr_in ($paddr);
        $client_addr = inet_ntoa ($iaddr);
        print ("\n$client_addr\n");

        my $lat;
        my $long;
        my $txt = read_from_socket (\*CLIENT);

        $txt =~ m/X-Forwarded-For: *([\d\.]+)/im;
        my $x_forwarded_for_addr = $1;
        my $authorized = is_authorized ($x_forwarded_for_addr, $server_ip);

        if (!$authorized)
        {
            switch_to_safe_csv (1);
        }
        elsif ($authorized)
        {
            switch_to_safe_csv (0);
        }

        print ("X_FORWARDED: $x_forwarded_for_addr\n");

        $txt =~ s/csv_data\/csv_data/csv_data\//img;
        $txt =~ s/csv_data\/csv_data/csv_data\//img;
        $txt =~ s/csv_data\/csv_data/csv_data\//img;
        my $get_group_info = 0;
        if ($txt =~ m/GET.*\.group_info/)
        {
            $get_group_info = 1;
            $txt =~ s/\.group_info//;
        }

        $txt =~ m/GET (.*) HTTP/;
        my $original_url = $1;

        if ($txt =~ m/.*favico.*/m)
        {
            my $size = -s ("d:/perl_programs/aaa.jpg");
            my $h = "HTTP/1.1 200 OK\nLast-Modified: 20150202020202\nConnection: close\nContent-Type: image/jpeg\nContent-Length: $size\n\n";
            print "===============\n", $h, "\n^^^^^^^^^^^^^^^^^^^\n";
            syswrite (\*CLIENT, $h);
            copy "d:/perl_programs/aaa.jpg", \*CLIENT;
            next;
        }

        if ($txt =~ m/GET.*update_csv.*/m)
        {
            $txt =~ m/(........update_csv.......)/im;
            my $matching_text = $1;
            my $html_text = "<html> <head> <META HTTP-EQUIV=\"CACHE-CONTROL\" CONTENT=\"NO-CACHE\"> <br> <META HTTP-EQUIV=\"EXPIRES\" CONTENT=\"Mon, 22 Jul 2094 11:12:01 GMT\"> </head> <body> <h1>Refresh CSV </h1> <br>
<form action=\"updated_csv\" id=\"newcsv\" name=\"newcsv\" method=\"post\">
<textarea id=\"newcsv\" class=\"text\" cols=\"86\" rows =\"20\" form=\"newcsv\" name=\"newcsv\">$csv_block</textarea>
<input type=\"submit\" value=\"New CSV\" class=\"submitButton\">
</form>
</body> </html>";
            write_to_socket (\*CLIENT, $html_text, "", "noredirect");
            next;
        }

        if ($txt =~ m/GET.*show_examples.*/m)
        {
            $txt =~ m/(........show_examples.......)/im;

            my $html_text = "<html> <head> <META HTTP-EQUIV=\"CACHE-CONTROL\" CONTENT=\"NO-CACHE\"> <br> <META HTTP-EQUIV=\"EXPIRES\" CONTENT=\"Mon, 22 Jul 2094 11:12:01 GMT\"> </head> <body> <h1>Show Examples</h1> <br>
<form action=\"examples\" id=\"examples\" name=\"examples\" method=\"post\">
<textarea id=\"examples1\" class=\"text\" cols=\"86\" rows =\"20\" form=\"examples\" name=\"examples1\">$examples_one</textarea>
<textarea id=\"examples2\" class=\"text\" cols=\"86\" rows =\"20\" form=\"examples\" name=\"examples2\">$examples_two</textarea>
<textarea id=\"examples3\" class=\"text\" cols=\"86\" rows =\"20\" form=\"examples\" name=\"examples3\">$examples_three</textarea>
<textarea id=\"examples4\" class=\"text\" cols=\"86\" rows =\"20\" form=\"examples\" name=\"examples4\">$examples_four</textarea>
<textarea id=\"examples5\" class=\"text\" cols=\"86\" rows =\"20\" form=\"examples\" name=\"examples5\">$examples_five</textarea>
<textarea id=\"examples6\" class=\"text\" cols=\"86\" rows =\"20\" form=\"examples\" name=\"examples6\">$examples_six</textarea>
<textarea id=\"examples7\" class=\"text\" cols=\"86\" rows =\"20\" form=\"examples\" name=\"examples7\">$examples_seven</textarea>
<input type=\"submit\" value=\"Done\" class=\"submitButton\">
</form>
</body> </html>";
            write_to_socket (\*CLIENT, $html_text, "", "noredirect");
            next;
        }

        if ($txt =~ m/GET.*show_help.*/m)
        {
            my $html_text = "<html> <head> <META HTTP-EQUIV=\"CACHE-CONTROL\" CONTENT=\"NO-CACHE\"> <br> <META HTTP-EQUIV=\"EXPIRES\" CONTENT=\"Mon, 22 Jul 2094 11:12:01 GMT\"> </head> <body> <h1>CSV Analyze Help</h1> <br>";
            $html_text .= "Functions Syntax: <a href='/csv_analyse/old_csv?safe_example.txt'>(see examples)</a><br><br>";
            $html_text .= "<table width=100%><tr>\n";
            $html_text .= "<thead>";
            $html_text .= "<th>Function Name</th>\n";
            $html_text .= "<th>Explanation</th>\n";
            $html_text .= "<th>Example/s</th>\n";
            $html_text .= "</thead>";

            $html_text .= "<tr><td bgcolor=#e5f4ff>ABS</td><td bgcolor=#ffe5f4>Absolute value </td><td bgcolor=#f4e5ff>ABS(-55.25);=ABS(-55.25)</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>CONCATENATE</td><td bgcolor=#ffe5f4>Concatentation of two strings </td><td bgcolor=#f4e5ff>CONCATENATE(\"AAA\"|\"BBB\");=CONCATENATE(\"AAA\"|\"BBB\")CONCATENATE('AAA'|'BBB');=CONCATENATE('AAA'|'BBB')</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>DAYS</td><td bgcolor=#ffe5f4>Days between two dates (YYYYMMDD)</td><td bgcolor=#f4e5ff>DAYS(\"20240501\",\"20240601\");=DAYS('20240501'|'20240601')</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>IF</td><td bgcolor=#ffe5f4>If then else structure</td><td bgcolor=#f4e5ff>IF(4>5|\"Hello\"|\"Goodbye\");=IF(4>5|\"Hello\"|\"Goodbye\")</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>INT</td><td bgcolor=#ffe5f4>Take the integer floor of the result of dividing the first argument by the second</td><td bgcolor=#f4e5ff>INT(6|10);=INT(6|10)</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>LEFT</td><td bgcolor=#ffe5f4>Returns the first N characters of S</td><td bgcolor=#f4e5ff>LEFT(\"ABCDEXYZ\"|5);=LEFT(\"ABCDEXYZ\"|5)</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>MAX</td><td bgcolor=#ffe5f4>Returns the maximum values of the both arguments</td><td bgcolor=#f4e5ff>MAX(3.14159|PI);=MAX(3|PI())</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>MIN</td><td bgcolor=#ffe5f4>Returns the maximum values of the both arguments</td><td bgcolor=#f4e5ff>MIN(3.14159|PI);=MIN(4|PI())</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>MOD</td><td bgcolor=#ffe5f4>Modulus of two integers</td><td bgcolor=#f4e5ff>MOD(10|3);=MOD(10|3)</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>PI</td><td bgcolor=#ffe5f4>Returns the value of Pi to 14 decimals</td><td bgcolor=#f4e5ff>PI();=PI()</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>PMT</td><td bgcolor=#ffe5f4>PMT calculates the payment for a loan based on constant payments and a constant interest rate. =PMT(rate|times|principal)</td><td bgcolor=#f4e5ff>PMT(5|2|100);=PMT(5|2|100)</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>POWER</td><td bgcolor=#ffe5f4>Raise a number to a power </td><td bgcolor=#f4e5ff>3;=POWER(A>|2)</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>RAND</td><td bgcolor=#ffe5f4>Returns a random number with the max value being the supplied value</td><td bgcolor=#f4e5ff>RAND(5);=RAND(5)</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>REGEXPREPLACE</td><td bgcolor=#ffe5f4>Do regex on first parameter. first_param =~ s/second_param/third_param/</td><td bgcolor=#f4e5ff>REGEXPREPLACE(\"ABCDE\"|\"ABC\"|\"XYZ\");=REGEXPREPLACE(ABCDE|ABC|XYZ)</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>RIGHT</td><td bgcolor=#ffe5f4>Returns the last N characters of S</td><td bgcolor=#f4e5ff>RIGHT(\"ABCDEXYZ\"|5);=RIGHT(\"ABCDEXYZ\"|5)</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>ROUND</td><td bgcolor=#ffe5f4>Rounds a given number</td><td bgcolor=#f4e5ff>ROUND(0.55);=ROUND(0.55)ROUND(0.45);=ROUND(0.45)0;1</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>SQRT</td><td bgcolor=#ffe5f4>Square root of a number</td><td bgcolor=#f4e5ff>SQRT(100);=SQRT(100)</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>SUM</td><td bgcolor=#ffe5f4>Sums up a given range</td><td bgcolor=#f4e5ff>SUM(A_:B__);=SUM(A22:B23)SUM(A^^:B^);=SUM(A22:B24)</td></tr>";
            $html_text .= "<tr><td bgcolor=#e5f4ff>TEXTJOIN</td><td bgcolor=#ffe5f4>Textjoin combines the text from multiple ranges and/or strings, and includes a delimiter you specify between each text value that will be combined. =TEXTJOIN (delimiter|cond|text)</td><td bgcolor=#f4e5ff></td></tr>";
            write_to_socket (\*CLIENT, $html_text, "", "noredirect");
            next;
        }

        if ($txt =~ m/GET.*refresh_server_ip.*/m)
        {
            # Find my current IP: curl -s GET "http://icanhazip.com" | grep .
            $server_ip = `curl -s GET "http://icanhazip.com"`;
            $server_ip =~ s/\W*$//img;
            my $html_text = "<html> <head> <META HTTP-EQUIV=\"CACHE-CONTROL\" CONTENT=\"NO-CACHE\"> <br> <META HTTP-EQUIV=\"EXPIRES\" CONTENT=\"Mon, 22 Jul 2094 11:12:01 GMT\"> </head> <body> <h1>Refreshed</h1>";
            $html_text .= "<br>(Note, IPs are as follows: (yours:$client_addr), (server:$server_ip))<br><a href=\"/csv_analyse/show_history\">History</a></body> </html>";
            write_to_socket (\*CLIENT, $html_text, "", "noredirect");
            next;
        }

        if ($txt =~ m/GET.*show_history.*/m)
        {
            print $server_ip;
            print ("\n$x_forwarded_for_addr vs $client_addr\n");
            my $tc_client = $x_forwarded_for_addr;
            $tc_client = $x_forwarded_for_addr;
            $tc_client =~ s/\W*$//img;

            my $safe = "";
            if (!$authorized)
            {
                $safe = "safe";
            }

            $txt =~ m/(........show_examples.......)/im;
            my $html_text = "<html> <head> <META HTTP-EQUIV=\"CACHE-CONTROL\" CONTENT=\"NO-CACHE\"> <br> <META HTTP-EQUIV=\"EXPIRES\" CONTENT=\"Mon, 22 Jul 2094 11:12:01 GMT\"> </head> <body> <h1>Previous CSVs</h1> <br>";
            my $listing = `dir /a /b /s d:\\perl_programs\\csv_ingest\\*$safe*.txt`;
            $listing =~ s/d:\\.*\\//img;
            $listing =~ s/(.*?)\n/<a href="\/csv_analyse\/old_csv?$1">$1<\/a><br>\n/img;
            $html_text .= "$listing<br>(Note, automatically authorized as IPs are as follows: (yours:$client_addr), (server:$server_ip))</body> </html>";
            write_to_socket (\*CLIENT, $html_text, "", "noredirect");
            next;
        }

        if ($txt =~ m/GET.*toggle_calculate_off.*HTTP/m)
        {
            $show_formulas = 1;
        }
        if ($txt =~ m/GET.*toggle_calculate_on.*HTTP/m)
        {
            $show_formulas = 0;
        }
        if ($txt =~ m/GET.*toggle_perl_on.*HTTP/m)
        {
            $show_formulas = 2;
            my %new_csv_data;
            my $fi;
            foreach $fi (sort keys (%csv_data))
            {
                $new_csv_data {$fi} = $csv_data {$fi};
            }
            %csv_data = %new_csv_data;
        }

        if ($authorized && $txt =~ m/GET.*dograph_(\d+)/m)
        {
            my $col = $1;
            my $graph_html = get_graph_html ($1, get_col_header ($1));
            write_to_socket (\*CLIENT, $graph_html, "", "noredirect");
            next;
        }
        elsif (!$authorized && $txt =~ m/GET.*dograph_(\d+)/m)
        {
            write_to_socket (\*CLIENT, $NOT_AUTHORIZED_HTML . "dograph", "", "noredirect");
            next;
        }

        if ($authorized && $txt =~ m/GET.*dograph_group_counts/m)
        {
            my $col = $1;
            my $graph_html = get_graph_html (-1, "graph_counts");
            write_to_socket (\*CLIENT, $graph_html, "", "noredirect");
            next;
        }
        elsif (!$authorized && $txt =~ m/GET.*dograph_group_counts/m)
        {
            write_to_socket (\*CLIENT, $NOT_AUTHORIZED_HTML . "dograph_group_counts", "", "noredirect");
            next;
        }

        if ($authorized && $txt =~ m/GET.*dograph_group_totals/m)
        {
            my $col = $1;
            my $graph_html = get_graph_html (-2, "graph_totals");
            write_to_socket (\*CLIENT, $graph_html, "", "noredirect");
            next;
        }
        elsif (!$authorized && $txt =~ m/GET.*dograph_group_totals/m)
        {
            write_to_socket (\*CLIENT, $NOT_AUTHORIZED_HTML . "dograph_group_totals", "", "noredirect");
            next;
        }

        print ("2- - - - - - -\n");
        my $have_to_write_to_socket = 1;

        chomp ($txt);
        my $original_get = $txt;

        $txt =~ s/\+/ /mg;
        $txt =~ s/.*filter\?//;
        $txt =~ s/.*stats\?//;
        $txt =~ s/ http.*//i;
        $txt =~ s/%21/!/g;
        $txt =~ s/%22/"/g;
        $txt =~ s/%23/#/g;
        $txt =~ s/%24/\$/g;
        $txt =~ s/%25/%/g;
        $txt =~ s/%26/&/g;
        $txt =~ s/%27/'/g;
        $txt =~ s/%28/(/g;
        $txt =~ s/%29/)/g;
        $txt =~ s/%2A/*/g;
        $txt =~ s/%2B/+/g;
        $txt =~ s/%2C/,/g;
        $txt =~ s/%2D/-/g;
        $txt =~ s/%2E/./g;
        $txt =~ s/%2F/\//g;
        $txt =~ s/%3A/:/g;
        $txt =~ s/%3B/;/g;
        $txt =~ s/%3C/</g;
        $txt =~ s/%3D/=/g;
        $txt =~ s/%3E/>/g;
        $txt =~ s/%3F/?/g;
        $txt =~ s/%40/@/g;
        $txt =~ s/%5B/[/g;
        $txt =~ s/%5C/\\/g;
        $txt =~ s/%5D/]/g;
        $txt =~ s/%5E/\^/g;
        $txt =~ s/%5F/_/g;
        $txt =~ s/%60/`/g;
        $txt =~ s/%7B/{/g;
        $txt =~ s/%7C/|/g;
        $txt =~ s/%7D/}/g;
        $txt =~ s/%09/;/g;

        if ($txt =~ m/POST.*updated_csv.*/i)
        {
            my $csv_data = $txt;
            my $new_csv_data = "";
            my $discard_header = 1;

            while ($csv_data =~ s/^(.*?)(\n|$)//im && $discard_header >= 0)
            {
                my $line = $1;
                if ($line =~ m/^$/ || $line =~ m/^
$/)
                {
                    $discard_header --;
                }

                if (!$discard_header)
                {
                    $new_csv_data .= "$line\n";
                }
            }

            $new_csv_data =~ s/^
$//img;
            $new_csv_data =~ s/^\n$//img;
            $new_csv_data =~ s/^\n$//img;
            $new_csv_data =~ s/^.*newcsv=//img;
            $new_csv_data =~ s/%0D%0A/\n/img;
            process_csv_data ($new_csv_data, "POSTED");
        }

        if (($authorized && $txt =~ m/GET.*old_csv.(.*)/i) || (!$authorized && $txt =~ m/GET.*old_csv.(.*safe.*)/i))
        {
            my $file = $1;
            $file =~ s/ HTTP.*//;
            $file =~ s/\n//img;
            $file =~ s/^.*old_csv.CSV/CSV/;
            my $new_csv = `type  d:\\perl_programs\\csv_ingest\\$file`;
            process_csv_data ($new_csv, "DONT_SAVE");
        }
        elsif (!$authorized && $txt =~ m/GET.*old_csv/i)
        {
            write_to_socket (\*CLIENT, $NOT_AUTHORIZED_HTML . "old_csv", "", "noredirect");
            next;
        }

        my $search = ".*";
        if ($txt =~ m/searchstr=(.*)/im)
        {
            $search = "$1";
        }

        my $group = ".*";
        if ($txt =~ m/groupstr=(.*)/im)
        {
            $group = "$1";
        }

        my $group_column = "";
        my $group_column_num = "";
        my $group_column_num2 = "";
        if ($txt =~ m/group_column.columns=(.*)$/im)
        {
            $group_column = "$1";
            $group_column_num = get_num_of_col_header ($group_column);
        }

        my $dual_group = ".*";
        if ($txt =~ m/dualgroup=(.*)/im)
        {
            $dual_group = "$1";
        }

        my @strs = split /&/, $txt;

        # Sortable table
        my $html_text = "<html>\n";
        $html_text .= "<head>\n";
        $html_text .= "  <meta charset='UTF-8'>\n";
        $html_text .= "  <title>Analyse CSV</title>\n";
        $html_text .= "  <meta name=\"robots\" content=\"noindex\">\n";
        $html_text .= "  <link rel=\"icon\" href=\"favicon.ico\">\n";
        $html_text .= "  <style id=\"INLINE_PEN_STYLESHEET_ID\">\n";
        $html_text .= "    .field_div\n";
        $html_text .= "    { text-align: center; margin-bottom: 10px; background-color: gainsboro; }\n";
        $html_text .= "    .field_div .field_border\n";
        $html_text .= "    { border: 1px solid black; padding: 2px; white-space: nowrap; border-radius: 3px; display: inline; display: inline-block; }\n";
        $html_text .= "table.sortable td,\n";
        $html_text .= "table.sortable th {\n";
        $html_text .= "  padding: 0.125em 0.25em;\n";
        $html_text .= "}\n";
        $html_text .= "table.sortable th {\n";
        $html_text .= "  font-weight: bold;\n";
        $html_text .= "  border-bottom: thin solid #888;\n";
        $html_text .= "  position: relative;\n";
        $html_text .= "}\n";
        $html_text .= "table.sortable th.no-sort {\n";
        $html_text .= "  padding-top: 0.35em;\n";
        $html_text .= "}\n";
        $html_text .= "table.sortable th:nth-child(n+2) {\n";
        $html_text .= "  width: 10em;\n";
        $html_text .= "}\n";
        $html_text .= "table.sortable td:nth-child(-n+1) {\n";
        $html_text .= "  border: 2px solid papayawhip;\n";
        $html_text .= "  background-color: paleturquoise;\n";
        $html_text .= "  font-weight: bold;\n";
        $html_text .= "}\n";
        $html_text .= "table.sortable th button {\n";
        $html_text .= "  position: absolute;\n";
        $html_text .= "  padding: 4px;\n";
        $html_text .= "  margin: 1px;\n";
        $html_text .= "  font-size: 100%;\n";
        $html_text .= "  font-weight: bold;\n";
        $html_text .= "  background: transparent;\n";
        $html_text .= "  border: none;\n";
        $html_text .= "  display: inline;\n";
        $html_text .= "  right: 0;\n";
        $html_text .= "  left: 0;\n";
        $html_text .= "  top: 0;\n";
        $html_text .= "  bottom: 0;\n";
        $html_text .= "  width: 100%;\n";
        $html_text .= "  text-align: left;\n";
        $html_text .= "  outline: none;\n";
        $html_text .= "  cursor: pointer;\n";
        $html_text .= "}\n";
        $html_text .= "table.sortable th button span {\n";
        $html_text .= "  position: absolute;\n";
        $html_text .= "  right: 4px;\n";
        $html_text .= "}\n";
        $html_text .= "table.sortable th[aria-sort=\"descending\"] span::after {\n";
        $html_text .= "  content: ' \\25BC';\n";
        $html_text .= "  color: currentcolor;\n";
        $html_text .= "  font-size: 100%;\n";
        $html_text .= "  top: 0;\n";
        $html_text .= "}\n";
        $html_text .= "table.sortable th[aria-sort=\"ascending\"] span::after {\n";
        $html_text .= "  content: ' \\25B2';\n";
        $html_text .= "  color: currentcolor;\n";
        $html_text .= "  font-size: 100%;\n";
        $html_text .= "  top: 0;\n";
        $html_text .= "}\n";
        $html_text .= "table.show-unsorted-icon th:not([aria-sort]) button span::after {\n";
        $html_text .= "  content: ' \\2662';\n";
        $html_text .= "  color: currentcolor;\n";
        $html_text .= "  font-size: 100%;\n";
        $html_text .= "  position: relative;\n";
        $html_text .= "  top: -3px;\n";
        $html_text .= "  left: -4px;\n";
        $html_text .= "}\n";
        $html_text .= "table.sortable td.num {\n";
        $html_text .= "  text-align: right;\n";
        $html_text .= "}\n";
        $html_text .= "table.sortable td.price {\n";
        $html_text .= "  text-align: right;\n";
        $html_text .= "}\n";
        $html_text .= "table.sortable tbody tr:nth-child(odd) {\n";
        $html_text .= "  background-color: #ddd;\n";
        $html_text .= "}\n";
        $html_text .= "table.sortable th button:focus,\n";
        $html_text .= "table.sortable th button:hover {\n";
        $html_text .= "  padding: 2px;\n";
        $html_text .= "  border: 2px solid currentcolor;\n";
        $html_text .= "  background-color: #e5f4ff;\n";
        $html_text .= "}\n";
        $html_text .= "table.sortable th button:focus span,\n";
        $html_text .= "table.sortable th button:hover span {\n";
        $html_text .= "  right: 2px;\n";
        $html_text .= "}\n";
        $html_text .= "table.sortable th:not([aria-sort]) button:focus span::after,\n";
        $html_text .= "table.sortable th:not([aria-sort]) button:hover span::after {\n";
        $html_text .= "  content: ' \\2662';\n";
        $html_text .= "  color: currentcolor;\n";
        $html_text .= "  font-size: 100%;\n";
        $html_text .= "  top: 0;\n";
        $html_text .= "}\n";
        $html_text .= "</style>\n";
        $html_text .= "</head>\n";
        $html_text .= "<body>\n";
        $html_text .= "<div id=\"fieldID\" class=\"field_div\"><div class=\"field_border\"></div></div>";
        $html_text .= "<table width=100%><tr>\n";

        $html_text .= "<td><form action=\"/csv_analyse/search\">
                <label for=\"searchstr\">Search:</label><br>
                <input type=\"text\" id=\"searchstr\" name=\"searchstr\" value=\"$search\" style=\"width:210px;\">
                <input type=\"submit\" value=\"Search\">
                </form></td><td>";

        #my $example = get_field_value (2, "C", 1);
        my $example = "20[23]\\d";
        $example = "\"/csv_analyse/groupby?groupstr=($example)" . get_col_name_of_number_type_col () . "\"";
        $html_text .= "<form action=\"/csv_analyse/groupby\">
                <label for=\"groupstr\">Group by <font size=-2><a href=$example>Example</a></font></label><br>
                <input type=\"text\" id=\"groupstr\" name=\"groupstr\" value=\"$group\" style=\"width:210px;\">
                <input type=\"submit\" value=\"Group By\">
                </form></td><td>";

        # Group by column name
        $html_text .= "<form action=\"/csv_analyse/group_column\">
                <label for=\"group_column\">Group by column</label><br>
                <select name=\"columns\">";

        my $group_block;

        my $xy;
        for ($xy = 0; $xy < $max_field_num; $xy++)
        {
            my $col = get_col_header ($xy);
            my $col_label = get_col_header ($xy) . " - Column " . get_field_letter_from_field_num ($xy);
            $html_text .= "<option value=\"$col\">$col_label</option>";
        }
        $html_text .= "</select name=\"columns\"><input type=\"submit\" value=\"Group By Column\"></form></td><td>";

        my $f1 =~ "20230401";
        $f1 =~ s/\W/./img;
        $f1 =~ s/^(...)..*$/$1../img;
        my $f2 =~ "AABBCCDD";
        $f2 =~ s/\W/./img;
        $f2 =~ s/^(...)..*$/$1../img;
        my $dual_example = "(20[123]\\d).*($f2)";
        my $dual_example2 = "%23" . get_col_header (0) . get_col_name_of_number_type_col ();

        $dual_example = "\"/csv_analyse/dualgroupby?dualgroup=$dual_example" . get_col_name_of_number_type_col () . "\"";
        $dual_example2 = "\"/csv_analyse/dualgroupby?dualgroup=$dual_example2\"";
        $html_text .= "<form action=\"/csv_analyse/dualgroupby\">
                <label for=\"dualgroup\">Dual groups <font size=-2><a href=$dual_example>Dual Example</a>&nbsp;<a href=$dual_example2>Dual Example2</a></font></label><br>
                <input type=\"text\" id=\"dualgroup\" name=\"dualgroup\" value=\"$dual_group\" style=\"width:210px;\">
                <input type=\"submit\" value=\"Dual Group By\" >
                </form></td>";

        $html_text .= "<td><form action=\"/csv_analyse/update_csv\">
                <label>Update CSV:</label><br>
                <input type=\"submit\" value=\"Update CSV\">
                <a href=\"/csv_analyse/show_examples\">Egs</a>
                <a href=\"/csv_analyse/show_help\">Help</a>
                <a href=\"/csv_analyse/show_history\">History</a>
                <a href=\"/csv_analyse/show_mesh?col1=A&col2=B&col3=C\">Mesh</a>
                <a href=\"/csv_analyse/groupby?groupstr=(.*).group_info\">2D</a>
                <a href=\"/csv_analyse/graph_mesh?col1=A&col2=B&col3=C\">Mesh 3D</a>
                <a href=\"/csv_analyse/3dgraph?col1=A&col2=B&col3=C\">3D</a>
                </form></td>";

        if ($show_formulas == 0)
        {
            $html_text .= "<td><form action=\"/csv_analyse/toggle_calculate_off\">
                <label>Toggle Formulas:</label><br>
                <input type=\"submit\" value=\"Show Formulas\"></form><a href=\"/csv_analyse/toggle_perl_on\">Display Perl</a>
                </tr></table>";
        }
        else
        {
            $html_text .= "<td><form action=\"/csv_analyse/toggle_calculate_on\">
                <label>Toggle Formulas:</label><br>
                <input type=\"submit\" value=\"Calculate Cells\"></form><a href=\"/csv_analyse/toggle_perl_on\">Display Perl</a>
                </tr></table>";
        }

        my %groups;
        my $group_count = 0;
        my %group_colours;
        $group_colours {0} = "burntorange"; $group_colours {1} = "blue"; $group_colours {2} = "green"; $group_colours {3} = "darkred"; $group_colours {4} = "mediumaquamarine"; $group_colours {5} = "black"; $group_colours {6} = "darkyellow"; $group_colours {7} = "red"; $group_colours {8} = "skyblue"; $group_colours {9} = "royalblue";
        $group_colours {11} = "blueviolet"; $group_colours {12} = "darkblue"; $group_colours {13} = "darkcyan"; $group_colours {14} = "darkgoldenrod"; $group_colours {15} = "darkgray"; $group_colours {16} = "darkgreen"; $group_colours {17} = "darkgrey"; $group_colours {18} = "darkkhaki"; $group_colours {19} = "darkmagenta"; $group_colours {20} = "darkolivegreen";
        $group_colours {21} = "darkorange"; $group_colours {22} = "darkorchid"; $group_colours {23} = "darksalmon"; $group_colours {24} = "darkseagreen"; $group_colours {25} = "darkslateblue"; $group_colours {26} = "darkslategray"; $group_colours {27} = "darkslategrey"; $group_colours {28} = "darkturquoise"; $group_colours {29} = "deeppink"; $group_colours {30} = "deepskyblue";
        $group_colours {31} = "midnightblue"; $group_colours {32} = "mediumpurple"; $group_colours {33} = "dodgerblue"; $group_colours {34} = "firebrick"; $group_colours {35} = "forestgreen"; $group_colours {36} = "fuchsia"; $group_colours {37} = "slateblue"; $group_colours {38} = "slategray"; $group_colours {39} = "slategrey"; $group_colours {40} = "gainsboro";
        $group_colours {41} = "gold"; $group_colours {42} = "goldenrod"; $group_colours {43} = "gray"; $group_colours {44} = "saddlebrown"; $group_colours {45} = "grey"; $group_colours {46} = "sandybrown"; $group_colours {47} = "hotpink"; $group_colours {48} = "indianred"; $group_colours {49} = "indigo"; $group_colours {50} = "ivory";
        $group_colours {51} = "khaki"; $group_colours {52} = "lavender"; $group_colours {53} = "lavenderblush"; $group_colours {54} = "lawngreen"; $group_colours {55} = "lemonchiffon"; $group_colours {56} = "lime"; $group_colours {57} = "limegreen"; $group_colours {58} = "linen"; $group_colours {59} = "magenta"; $group_colours {60} = "maroon";
        $group_colours {61} = "mediumaquamarine"; $group_colours {62} = "mediumblue"; $group_colours {63} = "mediumorchid"; $group_colours {64} = "dimgrey"; $group_colours {65} = "mediumseagreen"; $group_colours {66} = "mediumslateblue"; $group_colours {67} = "mediumspringgreen"; $group_colours {68} = "mediumturquoise"; $group_colours {69} = "mediumvioletred"; $group_colours {70} = "dimgray";
        $group_colours {71} = "mintcream"; $group_colours {72} = "mistyrose"; $group_colours {73} = "moccasin"; $group_colours {74} = "navy"; $group_colours {75} = "oldlace"; $group_colours {76} = "olive"; $group_colours {77} = "olivedrab"; $group_colours {78} = "orange"; $group_colours {79} = "orangered"; $group_colours {80} = "orchid";
        $group_colours {81} = "palegoldenrod"; $group_colours {82} = "palegreen"; $group_colours {83} = "paleturquoise"; $group_colours {84} = "palevioletred"; $group_colours {85} = "papayawhip"; $group_colours {86} = "peachpuff"; $group_colours {87} = "peru"; $group_colours {88} = "pink"; $group_colours {89} = "plum"; $group_colours {90} = "powderblue";
        $group_colours {91} = "rebeccapurple"; $group_colours {92} = "rosybrown"; $group_colours {93} = "greenyellow"; $group_colours {94} = "salmon"; $group_colours {95} = "honeydew"; $group_colours {96} = "seagreen"; $group_colours {97} = "seashell"; $group_colours {98} = "sienna"; $group_colours {99} = "springgreen"; $group_colours {100} = "steelblue";
        $group_colours {101} = "tan"; $group_colours {102} = "teal"; $group_colours {103} = "thistle"; $group_colours {104} = "tomato"; $group_colours {105} = "turquoise"; $group_colours {106} = "violet"; $group_colours {107} = "wheat"; $group_colours {108} = "yellow"; $group_colours {109} = "yellowgreen"; $group_colours {110} = "AliceBlue";
        $group_colours {111} = "aqua"; $group_colours {112} = "aquamarine"; $group_colours {113} = "azure"; $group_colours {114} = "beige"; $group_colours {115} = "bisque"; $group_colours {116} = "purple"; $group_colours {117} = "blanchedalmond"; $group_colours {119} = "brown"; $group_colours {120} = "cadetblue"; $group_colours {121} = "chartreuse";
        $group_colours {122} = "chocolate"; $group_colours {123} = "coral"; $group_colours {124} = "cornflowerblue"; $group_colours {125} = "cornsilk"; $group_colours {126} = "crimson"; $group_colours {127} = "cyan"; $group_colours {128} = "navajowhite"; $group_colours {129} = "lightblue"; $group_colours {130} = "lightcoral"; $group_colours {131} = "lightcyan";
        $group_colours {132} = "lightgoldenrodyellow"; $group_colours {133} = "lightgray"; $group_colours {134} = "lightgreen"; $group_colours {135} = "lightgrey"; $group_colours {136} = "lightpink"; $group_colours {137} = "lightsalmon"; $group_colours {138} = "lightseagreen"; $group_colours {139} = "lightskyblue"; $group_colours {140} = "lightslategray"; $group_colours {141} = "lightslategrey";
        $group_colours {142} = "lightsteelblue"; $group_colours {143} = "lightyellow"; $group_colours {144} = "snow"; $group_colours {145} = "white"; $group_colours {146} = "whitesmoke"; $group_colours {147} = "antiquewhite"; $group_colours {148} = "floralwhite"; $group_colours {149} = "ghostwhite";

        $html_text .= "<script>\n";
        $html_text .= "'use strict';\n";
        $html_text .= "class SortableTable { constructor(tableNode) { this.tableNode = tableNode; this.columnHeaders = tableNode.querySelectorAll('thead th'); this.sortColumns = []; for (var i = 0; i < this.columnHeaders.length; i++) { var ch = this.columnHeaders[i]; var buttonNode = ch.querySelector('button'); if (buttonNode) { this.sortColumns.push(i); buttonNode.setAttribute('data-column-index', i); buttonNode.addEventListener('click', this.handleClick.bind(this)); } } this.optionCheckbox = document.querySelector( 'input[type=\"checkbox\"][value=\"show-unsorted-icon\"]'); if (this.optionCheckbox) { this.optionCheckbox.addEventListener( 'change', this.handleOptionChange.bind(this)); if (this.optionCheckbox.checked) { this.tableNode.classList.add('show-unsorted-icon'); } } } setColumnHeaderSort(columnIndex) { if (typeof columnIndex === 'string') { columnIndex = parseInt(columnIndex); } for (var i = 0; i < this.columnHeaders.length; i++) { var ch = this.columnHeaders[i]; var buttonNode = ch.querySelector('button'); if (i === columnIndex) { var value = ch.getAttribute('aria-sort'); if (value === 'descending') { ch.setAttribute('aria-sort', 'ascending'); this.sortColumn( columnIndex, 'ascending', ch.classList.contains('td.num'), ch.classList.contains('td.price')); } else { ch.setAttribute('aria-sort', 'descending'); this.sortColumn( columnIndex, 'descending', ch.classList.contains('td.num'), ch.classList.contains('td.price')); } } else { if (ch.hasAttribute('aria-sort') && buttonNode) { ch.removeAttribute('aria-sort'); } } } } sortColumn(columnIndex, sortValue, isNumber, isPrice) { function compareValues(a, b) { if (sortValue === 'ascending') { if (a.value === b.value) { return 0; } else { if (isNumber) { return a.value - b.value; } else if (isPrice) { var aval = a.value; aval = aval.replace (/\\W/g, ''); var bval = b.value; bval = bval.replace (/\\W/g, '');  return aval - bval < 0 ? -1 : 1; } else { return a.value < b.value ? -1 : 1; } } } else { if (a.value === b.value) { return 0; } else { if (isNumber) { return b.value - a.value; } else if (isPrice) { var aval = a.value; aval = aval.replace (/\\W/g, ''); var bval = b.value; bval = bval.replace (/\\W/g, '');  return aval - bval < 0 ? 1 : -1; } else { return a.value > b.value ? -1 : 1; } } } } if (typeof isNumber !== 'boolean') { isNumber = false; } var tbodyNode = this.tableNode.querySelector('tbody'); var rowNodes = []; var dataCells = []; var rowNode = tbodyNode.firstElementChild; var index = 0; while (rowNode) { rowNodes.push(rowNode); var rowCells = rowNode.querySelectorAll('th, td'); var dataCell = rowCells[columnIndex]; var data = {}; data.index = index; data.value = dataCell.textContent.toLowerCase().trim(); if (isNumber) { data.value = parseFloat(data.value); } dataCells.push(data); rowNode = rowNode.nextElementSibling; index += 1; } dataCells.sort(compareValues); while (tbodyNode.firstChild) { tbodyNode.removeChild(tbodyNode.lastChild); } for (var i = 0; i < dataCells.length; i += 1) { rowNode = rowNodes[dataCells[i].index]; rowNode.childNodes[0].innerHTML='<font size=\"-1\">Row:'+(i+1)+'</font>'; tbodyNode.appendChild(rowNodes[dataCells[i].index]); } }  handleClick(event) { var tgt = event.currentTarget; this.setColumnHeaderSort(tgt.getAttribute('data-column-index')); } handleOptionChange(event) { var tgt = event.currentTarget; if (tgt.checked) { this.tableNode.classList.add('show-unsorted-icon'); } else { this.tableNode.classList.remove('show-unsorted-icon'); } } }\n";
        $html_text .= "window.addEventListener('load', function () { var sortableTables = document.querySelectorAll('table.sortable'); for (var i = 0; i < sortableTables.length; i++) { new SortableTable(sortableTables[i]); } });\n";
        $html_text .= "</script>\n";
        $html_text .= "<div class=\"table-wrap\"><table id=\"table\" class=\"sortable\">\n";

        $html_text .= "<thead>\n";
        #$html_text .= "<br><textarea style=\"font-family:courier-new;size=-3;white-space:pre-wrap\"\">QQQ</textarea><br>";
        $html_text .= "QQQ";

        $html_text .= "<tr>\n";
        $html_text .= "<th class=\"no-sort\"><div id=\"field\"/>&#9698;</th>";

        my $x;
        for ($x = 0; $x < $max_field_num; $x++)
        {
            $html_text .= "<th XYZ$x> <button><font size=-1>" . get_col_header ($x) . " " . get_field_letter_from_field_num ($x) . "<span aria-hidden=\"true\"></span> </font></button> </th> \n";
        }
        my $only_one_group = 1;
        my $first_group_only = 0;
        my $group_by_column = 0;
        my $dual_group_by_columns = 0;
        my $dual_groups = 0;
        my $group2 = "";
        my $chosen_col = "";
        my $overall_match = $group;
        if ($group =~ m/\((.*)\).*\((.*)\)/)
        {
            $only_one_group = 0;
            $first_group_only = 1;
            $group_by_column = 0;
            $dual_groups = 0;
            $group = "$1";
            $group2 = "$2";
        }

        if ($group_column =~ m/(.+)/)
        {
            $only_one_group = 0;
            $first_group_only = 0;
            $group_by_column = 1;
            $dual_groups = 0;
            $group = "$1";
            $group2 = "";
            $overall_match = $group_column;
        }

        if ($dual_group =~ m/\((.*)\).*\((.*)\)/)
        {
            $only_one_group = 0;
            $first_group_only = 0;
            $group_by_column = 0;
            $dual_groups = 1;
            $group = "$1";
            $group2 = "$2";
            $overall_match = $dual_group;
        }
        elsif ($dual_group =~ m/\((.*)\)/)
        {
            $only_one_group = 0;
            $first_group_only = 0;
            $group_by_column = 0;
            $dual_groups = 1;
            $group = "$1";
            $group2 = "$2";
            $overall_match = $dual_group;
        }
        elsif ($dual_group =~ m/#([^#]+)#([^#]+)$/)
        {
            $only_one_group = 0;
            $first_group_only = 0;
            $dual_group_by_columns = 1;
            $dual_groups = 0;
            $group = "$1";
            $group2 = "$2";
            $overall_match = ".*";

            $group_column_num = get_num_of_col_header ($group);
            $group_column_num2 = get_num_of_col_header ($group2);
        }

        my %new_meta_data;
        my %new_calculated_data;
        my $valid_regex = eval { qr/$overall_match/ };
        if (defined ($valid_regex))
        {
            %meta_data = %new_meta_data;
            %calculated_data = %new_calculated_data;
            $use_regex = 1;
        }

        if ($overall_match eq ".*" || $overall_match eq "")
        {
            $use_regex = 0;
        }

        if ($use_regex || $dual_group_by_columns)
        {
            $html_text .= "<th> <button><font size=-1>Group<span aria-hidden=\"true\"></span> </font></button> </th> \n";
            $html_text .= "<th> <button><font size=-1>Group_Total<span aria-hidden=\"true\"></span> </font></button> </th> \n";
        }
        $html_text .= "<th class=\"no-sort\">*</th>";
        $html_text .= "</tr>\n";
        $html_text .= "</thead>\n";
        $html_text .= "<tbody><font size=-2>\n";

        my $checked = "";

        my $card;
        my $deck;
        my $overall_count = 0;
        my %group_prices;
        my %group_counts;

        if ($group =~ s/#(.*)//)
        {
            $chosen_col = "$1";
            $overall_match = $group;
        }

        if ($dual_group =~ s/#([^#]+)$//)
        {
            $chosen_col = "$1";
            $overall_match = $group;
        }

        my $row_num = 1;
        my $col_letter = "A";
        my $old_row_num = 2;
        my $old_col_letter = "A";
        my $field_id = 0;
        my $row = "<tr><td><font size=-1>Row:$row_num</font></td>";
        my $fake_row;
        my $x = 0;
        my $y = 0;

        my %col_calculations;
        my $pot_group_price = "";

        while ($row_num < $max_rows)
        {
            my $x = 0;
            $col_letter = "A";
            while ($x < $max_field_num)
            {
                if ($row_num eq "1") { $old_row_num = 2; $x++; $col_letter = get_next_field_letter ($col_letter); next; }
                $field_id = "$col_letter" . $row_num;
                my $field = get_field_value ($row_num, $col_letter, 1, $show_formulas);

                if (!defined ($col_types {$col_letter}))
                {
                    if (is_date ($field))
                    {
                        $field = fix_date ($field);
                        if ($field =~ m/^\d{8}$/)
                        {
                            set_col_type ($col_letter, "DATE");
                            set_field_value ($row_num, $col_letter, $field, "");
                        }
                    }
                    elsif (is_number ($field))
                    {
                        set_col_type ($col_letter, "NUMBER");
                        $col_calculations {$col_letter} = $field;
                    }
                    elsif (is_price ($field))
                    {
                        set_col_type ($col_letter, "PRICE");
                        $col_calculations {$col_letter} = add_price ($col_calculations {$col_letter}, $field);
                    }
                    else
                    {
                        set_col_type ($col_letter, "GENERAL");
                    }
                }
                elsif ($col_types {$col_letter} ne "GENERAL")
                {
                    if ($field =~ m/^\s*$/)
                    {

                    }
                    elsif (is_date ($field))
                    {
                        if ($col_types {$col_letter} ne "DATE")
                        {
                            set_col_type ($col_letter, "GENERAL");
                        }
                        else
                        {
                            $field = fix_date ($field);
                            if ($field =~ m/^\d{8}$/)
                            {
                                set_col_type ($col_letter, "DATE");
                                set_field_value ($row_num, $col_letter, $field, "");
                            }
                        }
                    }
                    elsif (is_number ($field))
                    {
                        if ($col_types {$col_letter} eq "PRICE")
                        {
                            set_col_type ($col_letter, "NUMBER");
                        }
                        else
                        {
                            $col_calculations {$col_letter} += $field;
                        }
                    }
                    elsif (is_price ($field))
                    {
                        if ($col_types {$col_letter} eq "PRICE")
                        {
                            $col_calculations {$col_letter} = add_price ($col_calculations {$col_letter}, $field);
                        }
                        elsif ($col_types {$col_letter} ne "NUMBER")
                        {
                            set_col_type ($col_letter, "GENERAL");
                        }
                    }
                    else
                    {
                        set_col_type ($col_letter, "GENERAL");
                    }
                }

                $field = get_field_value ($row_num, $col_letter, 1, $show_formulas);
                if ($row_num > $old_row_num)
                {
                    # Add row to table if matched
                    $fake_row = $row;
                    $fake_row =~ s/<[^>]*>//img;
                    $fake_row =~ s/\n//img;
                    my $force_row = 0;
                    if ($dual_groups)
                    {
                        $force_row = -1;
                    }

                    my $xrow = $row;
                    my $current_col_letter = $col_letter;

                    if ($group_by_column)
                    {
                        my $this_group = get_field_value ($row_num - 1, get_field_letter_from_field_num ($group_column_num), 0, $show_formulas);

                        $group_counts {$this_group}++;
                        $current_col_letter = get_next_field_letter ($current_col_letter);
                        $row .= " <td id='$current_col_letter$row_num'>$this_group</td>\n";

                        if (!defined ($group_colours {$this_group}))
                        {
                            $group_colours {$this_group} = $group_colours {$group_count};
                            $group_count++;
                        }
                        $row =~ s/(<td[^>]+>)/$1<font color=$group_colours{$this_group}>/img;
                        $row =~ s/<\/td>/<\/font><\/td>/img;
                        # Leave first td alone..
                        $row =~ s/(<td[^>]+>)<font color=$group_colours{$this_group}>/$1/im;
                        $row =~ s/<\/font><\/td>/<\/td>/im;
                    }

                    if ($dual_group_by_columns)
                    {
                        my $this_group = get_field_value ($row_num - 1, get_field_letter_from_field_num ($group_column_num), 0, $show_formulas);
                        my $this_group_val = get_field_value ($row_num - 1, get_field_letter_from_field_num ($group_column_num2), 0, $show_formulas);

                        $group_prices {$this_group} = add_price ($group_prices {$this_group}, $this_group_val);
                        $group_prices {$this_group . "_calc"} .= "+$this_group_val (CC $old_row_num,$chosen_col)";

                        $group_counts {$this_group}++;
                        $current_col_letter = get_next_field_letter ($current_col_letter);
                        $row .= " <td id='$current_col_letter$row_num'>$this_group</td>\n";

                        if (!defined ($group_colours {$this_group}))
                        {
                            $group_colours {$this_group} = $group_colours {$group_count};
                            $group_count++;
                        }
                        $row =~ s/(<td[^>]+>)/$1<font color=$group_colours{$this_group}>/img;
                        $row =~ s/<\/td>/<\/font><\/td>/img;
                        # Leave first td alone..
                        $row =~ s/(<td[^>]+>)<font color=$group_colours{$this_group}>/$1/im;
                        $row =~ s/<\/font><\/td>/<\/td>/im;
                    }

                    if ($dual_group_by_columns)
                    {
                        my $this_group = get_field_value ($row_num - 1, get_field_letter_from_field_num ($group_column_num), 0, $show_formulas);
                        $row .= " <td>GPRICE_$this_group</td> </tr>\n";
                    }
                    elsif ($use_regex && $fake_row =~ m/$overall_match/im && $overall_match ne ".*" && $overall_match ne "" || $dual_group_by_columns)
                    {
                        $force_row = 1;
                        if ($only_one_group == 1 && $fake_row =~ m/($group)/im)
                        {
                            my $this_group = $1;
                            $current_col_letter = get_next_field_letter ($current_col_letter);
                            $row .= " <td id='$current_col_letter$row_num'>$this_group</td>\n";
                            my $g_price = "GPRICE_$this_group";
                            $current_col_letter = get_next_field_letter ($current_col_letter);
                            $row .= " <td id='$current_col_letter$row_num'>$g_price</td> </tr>\n";

                            if (!defined ($group_colours {$this_group}))
                            {
                                $group_colours {$this_group} = $group_colours {$group_count};
                                $group_count++;
                            }
                            $row =~ s/(<td[^>]+>)/$1<font color=$group_colours{$this_group}>/img;
                            $row =~ s/<\/td>/<\/font><\/td>/img;

                            # Leave first td alone..
                            $row =~ s/(<td[^>]+>)<font color=$group_colours{$this_group}>/$1/im;
                            $row =~ s/<\/font><\/td>/<\/td>/im;
                            $group_counts {$this_group}++;

                            $pot_group_price = get_field_value ($old_row_num, get_num_of_col_header ($chosen_col), 0, $show_formulas);
                            $group_prices {$this_group} = add_price ($group_prices {$this_group}, $pot_group_price);
                            $group_prices {$this_group . "_calc"} .= "+$pot_group_price (AA $old_row_num,$chosen_col)";
                        }
                        elsif ($first_group_only && $fake_row =~ m/$overall_match/im && ($fake_row =~ m/($group)/mg))
                        {
                            my $this_group = $1;
                            if ($fake_row =~ m/($group2)/mg)
                            {
                                $group_counts {$this_group}++;
                                $pot_group_price = get_field_value ($old_row_num, get_num_of_col_header ($chosen_col), 0, $show_formulas);
                                $group_prices {$this_group} = add_price ($group_prices {$this_group}, $pot_group_price);
                                $group_prices {$this_group . "_calc"} .= "+$pot_group_price (BB $old_row_num,$chosen_col)";
                                $current_col_letter = get_next_field_letter ($current_col_letter);
                                $row .= " <td id='$current_col_letter$row_num'>$this_group</td>\n";
                                my $g_price = "GPRICE_$this_group";
                                $current_col_letter = get_next_field_letter ($current_col_letter);
                                $row .= " <td id='$current_col_letter$row_num'>$g_price</td> </tr>\n";

                                if (!defined ($group_colours {$this_group}))
                                {
                                    $group_colours {$this_group} = $group_colours {$group_count};
                                    $group_count++;
                                }
                                $row =~ s/(<td[^>]+>)/$1<font color=$group_colours{$this_group}>/img;
                                $row =~ s/<\/td>/<\/font><\/td>/img;
                                # Leave first td alone..
                                $row =~ s/(<td[^>]+>)<font color=$group_colours{$this_group}>/$1/im;
                                $row =~ s/<\/font><\/td>/<\/td>/im;
                            }
                            elsif ($use_regex)
                            {
                                $old_col_letter = get_next_field_letter ($old_col_letter);
                                $row .= "<td id='$old_col_letter$old_row_num'><font size=-3>No group</font></td>\n";
                                $old_col_letter = get_next_field_letter ($old_col_letter);
                                $row .= "<td id='$old_col_letter$old_row_num'><font size=-3>No aaa group Total</font></td></tr>\n";
                            }
                        }
                        elsif ($dual_groups && $fake_row =~ m/($overall_match)/im)
                        {
                            $fake_row =~ m/($group)/im;
                            my $this_group = $1;
                            if ($fake_row =~ m/($group2)/im)
                            {
                                $this_group .= " " . $1;
                                $group_counts {$this_group}++;
                                $pot_group_price = get_field_value ($old_row_num, get_num_of_col_header ($chosen_col), 0, $show_formulas);
                                $group_prices {$this_group} = add_price ($group_prices {$this_group}, $pot_group_price);
                                $group_prices {$this_group . "_calc"} .= "+$pot_group_price (CC $old_row_num,$chosen_col)";
                                $current_col_letter = get_next_field_letter ($current_col_letter);
                                $row .= " <td id='$current_col_letter$row_num'>$this_group</td>\n";
                                my $g_price = "GPRICE_$this_group";
                                $current_col_letter = get_next_field_letter ($current_col_letter);
                                $row .= " <td id='$current_col_letter$row_num'>$g_price</td> </tr>\n";
                                if (!defined ($group_colours {$this_group}))
                                {
                                    $group_colours {$this_group} = $group_colours {$group_count};
                                    $group_count++;
                                }
                                $row =~ s/(<td[^>]+>)/$1<font color=$group_colours{$this_group}>/img;
                                $row =~ s/<\/td>/<\/font><\/td>/img;

                                # Leave first td alone..
                                $row =~ s/(<td[^>]+>)<font color=$group_colours{$this_group}>/$1/im;
                                $row =~ s/<\/font><\/td>/<\/td>/im;
                            }
                        }
                    }
                    elsif ($use_regex)
                    {
                        $old_col_letter = get_next_field_letter ($old_col_letter);
                        $row .= "<td id='$old_col_letter$old_row_num'><font size=-3>No group</font></td>\n";
                        $old_col_letter = get_next_field_letter ($old_col_letter);
                        $row .= "<td id='$old_col_letter$old_row_num'><font size=-3>No bbb group Total</font></td></tr>\n";
                    }
                    #if ($use_regex && $fake_row =~ m/$overall_match/im && $overall_match ne ".*" && $overall_match ne "")
                    {
                        $xrow =~ s/\n//img;
                        $row =~ s/\n//img;
                    }

                    if (($row =~ m/$search/im || $search eq "") && $force_row >= 0)
                    {
                        $overall_count++;
                        $html_text .= "$row ";
                    }

                    $row = "<tr><td><font size=-1>Row:$old_row_num</font></td><td id='$col_letter$row_num'>$field</td>\n";
                    $old_row_num = $row_num;
                }
                else
                {
                    $row .= "<td id='$col_letter$row_num'>$field</td>\n";
                }
                $x++;
                $old_col_letter = $col_letter;
                $col_letter = get_next_field_letter ($col_letter);
            }
            $row_num++;
        }

        # Handle last row..
        {
            # Add row to table if matched
            $fake_row = $row;
            $fake_row =~ s/<[^>]*>//img;
            my $force_row = 0;
            if ($dual_groups)
            {
                $force_row = -1;
            }

            if ($group_by_column)
            {
                my $this_group = get_field_value ($row_num - 1, get_field_letter_from_field_num ($group_column_num), 0, $show_formulas);

                $group_counts {$this_group}++;
                my $current_col_letter = $col_letter;
                $current_col_letter = get_next_field_letter ($current_col_letter);
                $row .= " <td id='$current_col_letter$row_num'>$this_group</td>\n";

                if (!defined ($group_colours {$this_group}))
                {
                    $group_colours {$this_group} = $group_colours {$group_count};
                    $group_count++;
                }
                $row =~ s/(<td[^>]+>)/$1<font color=$group_colours{$this_group}>/img;
                $row =~ s/<\/td>/<\/font><\/td>/img;
                # Leave first td alone..
                $row =~ s/(<td[^>]+>)<font color=$group_colours{$this_group}>/$1/im;
                $row =~ s/<\/font><\/td>/<\/td>/im;
            }

            if ($use_regex && $fake_row =~ m/$overall_match/im && $overall_match ne ".*" && $overall_match ne "" || $dual_group_by_columns)
            {
                $force_row = 1;

                if ($dual_group_by_columns)
                {
                    my $this_group = get_field_value ($row_num - 1, get_field_letter_from_field_num ($group_column_num), 0, $show_formulas);
                    $row .= " <td>$this_group</td>\n";
                    $row .= " <td>GPRICE_$this_group</td> </tr>\n";
                }
                elsif ($only_one_group == 1 && $fake_row =~ m/($group)/im)
                {
                    my $this_group = $1;
                    $group_counts {$this_group}++;
                    $row .= " <td>$this_group</td>\n";
                    my $g_price = "GPRICE_$this_group";
                    $row .= " <td>$g_price</td> </tr>\n";
                }
                elsif ($first_group_only && $fake_row =~ m/$overall_match/im && ($fake_row =~ m/($group)/mg))
                {
                    my $this_group = $1;
                    if ($fake_row =~ m/($group2)/mg)
                    {
                        $group_counts {$this_group}++;
                        $row .= " <td>$this_group</td>\n";
                        my $g_price = "GPRICE_$this_group";
                        $row .= " <td>$g_price</td> </tr>\n";
                    }
                    else
                    {
                        $old_col_letter = get_next_field_letter ($old_col_letter);
                        $row .= "<td id='$old_col_letter$old_row_num'><font size=-3>No group</font></td>\n";
                        $old_col_letter = get_next_field_letter ($old_col_letter);
                        $row .= "<td id='$old_col_letter$old_row_num'><font size=-3>No ccc group Total</font></td></tr>\n";
                    }
                }
                elsif ($dual_groups && $fake_row =~ m/($group)/im)
                {
                    my $this_group = $1;
                    if ($fake_row =~ m/($group2)/im)
                    {
                        $this_group .= " " . $1;
                        $group_counts {$this_group}++;
                        $row .= " <td>$this_group</td>\n";
                        my $g_price = "GPRICE_$this_group";
                        $row .= " <td>$g_price</td> </tr>\n";
                    }
                    else
                    {
                        $old_col_letter = get_next_field_letter ($old_col_letter);
                        $row .= "<td id='$old_col_letter$old_row_num'><font size=-3>No group</font></td>\n";
                        $old_col_letter = get_next_field_letter ($old_col_letter);
                        $row .= "<td id='$old_col_letter$old_row_num'><font size=-3>No ddd group Total</font></td></tr>\n";
                    }
                }
            }
            elsif ($use_regex)
            {
                $old_col_letter = get_next_field_letter ($old_col_letter);
                $row .= "<td id='$old_col_letter$old_row_num'><font size=-3>No group</font></td>\n";
                $old_col_letter = get_next_field_letter ($old_col_letter);
                $row .= "<td id='$old_col_letter$old_row_num'><font size=-3>No eee group Total</font></td></tr>\n";
            }

            if (($row =~ m/$search/im || $search eq "") && $force_row >= 0)
            {
                $overall_count++;
                $html_text .= "$row ";
            }
        }

        $html_text .= "</font></tbody>\n";
        $html_text .= "</table></div>\n";
        if ($use_regex != 1) { $overall_count .= "&nbsp;&nbsp;<font color=red>NB: Error with regex $overall_match</font>"; }
        $html_text =~ s/YYY/$overall_count/mg;

        my $group_block;

        for ($x = 0; $x < $max_field_num; $x++)
        {
            if (get_col_type ($x) eq "PRICE" || get_col_type ($x) eq "NUMBER")
            {
                $group_block .= "<button onclick=\"location.href='dograph_$x'\">Graph " . get_col_header ($x) . "</button>";
                my $str = "class=td.price";
                $html_text =~ s/XYZ$x/$str/;
            }
            else
            {
                $group_block .= "<button onclick=\"location.href='dograph_$x'\">Graph " . get_col_header ($x) . " (not a detected number column)</button>";
                $html_text =~ s/XYZ$x//;
            }
        }

        if (($only_one_group || $first_group_only || $dual_groups) && $use_regex || $dual_group_by_columns)
        {
            $group_block .= "<button onclick=\"location.href='dograph_group_counts'\">Graph group counts</button>";
            $group_block .= "<button onclick=\"location.href='dograph_group_totals'\">Graph group totals</button>";
        }

        $group_block .= "<br>";

        if ($group =~ m/.../)
        {
            my $g;
            my $total_g_count;
            my $total_g_price;

            foreach $g (sort keys (%group_counts))
            {
                my $g_price = $group_prices {$g};
                my $g_count = $group_counts {$g};
                my $g_calc = $group_prices {$g. "_calc"};
                if ($g_price =~ m/\./)
                {
                    $g_price = $g_price / 100;
                }
                else
                {
                    $g_price =~ s/(\d\d)$/.$1/;
                }

                my $replace_g_price = "GPRICE_$g";
                $html_text =~ s/$replace_g_price/$g_price/img;

                if ($g_count != 1)
                {
                    $group_block .= "<font color=$group_colours{$g}>Group $g had $g_count rows (total was $g_price)</font><br>";
                }
                else
                {
                    $group_block .= "<font color=$group_colours{$g}>Group $g had $g_count row (total was $g_price)</font><br>";
                }

                if ($get_group_info)
                {
                    my $g_calc = $group_prices {$g. "_calc"};
                    $group_block .= "<font color=$group_colours{$g}>Group $g had calculation of $g_calc</font><br>";
                }

                $total_g_count += $g_count;
                $total_g_price += $g_price;

                $meta_data {$g . "_total"} = $g_price;
                $meta_data {$g . "_count"} = $g_count;
            }
            $group_block .= "Total group row count: $total_g_count";
        }

        my $c;
        foreach $c (sort keys (%col_types))
        {
            if ($col_types{$c} eq "PRICE")
            {
                $col_calculations{$c} = $col_calculations{$c} / 100;
            }

            if ($get_group_info)
            {
                $group_block .= "<br> TODO - let edit here! Column $c (" . get_col_header ($c) . "): $col_types{$c} ($col_calculations{$c}) Rounding digits:($col_roundings{$c})";
            }
        }

        if ($get_group_info)
        {
            my $col = $1;
            $group_block = "<a href=\"/csv_analyse$original_url\">Return to Sheet view</a><br>$group_block";
            write_to_socket (\*CLIENT, $group_block, "", "noredirect");
            next;
        }

        my $g_url = "No group info to view<br>";
        if ($group_count == 1)
        {
            $g_url = "<a href=\"/csv_analyse$original_url.group_info\">View group information</a><br>";
        }
        elsif ($group_count > 1)
        {
            $g_url = "<a href=\"/csv_analyse$original_url.group_info\">View all $group_count groups</a><br>";
        }
        $group_block =~ s/<br>/\n/img;
        $group_block =~ s/^((.*\n){0,7})(.*)\n/$1\nrest truncated../m;
        $group_block = "$g_url<font size=-1>$1$2</font>";

        $group_block =~ s/\n/<br>/img;
        $group_block = "<div style=\"-webkit-mask-image:linear-gradient(to bottom, black 0%, transparent 100%);mask-image:linear-gradient(to bottom, black 0%, transparent 100%);background-color: skyblue\">" .
                       $group_block .
                       "</div>";
        $html_text =~ s/QQQ/$group_block/im;
        $html_text =~ s/QQQ//im;

        my $c = get_col_name_of_number_type_col ();
        $html_text =~ s/%23NUM_COL/$c/im;
        $html_text =~ s/%23NUM_COL/$c/im;

        $html_text .= "<br>$deck";

        $html_text .= "<script>\n";
        $html_text .= "let currentElem = null;\n";
        $html_text .= "table.onmouseover = function(event) {\n";
        $html_text .= "  if (currentElem) return;\n";
        $html_text .= "  let target = event.target.closest('td');\n";
        $html_text .= "  if (!target) return;\n";
        $html_text .= "  if (!table.contains(target)) return;\n";
        $html_text .= "  currentElem = target;\n";
        $html_text .= "  onEnter(currentElem);\n";
        $html_text .= "};\n";
        $html_text .= "table.onmouseout = function(event) {\n";
        $html_text .= "  if (!currentElem) return;\n";
        $html_text .= "  let relatedTarget = event.relatedTarget;\n";
        $html_text .= "  while (relatedTarget) {\n";
        $html_text .= "    if (relatedTarget == currentElem) return;\n";
        $html_text .= "    relatedTarget = relatedTarget.parentNode;\n";
        $html_text .= "  }\n";
        $html_text .= "  onLeave(currentElem);\n";
        $html_text .= "  currentElem = null;\n";
        $html_text .= "};\n";
        $html_text .= "function fade(element, duration)\n";
        $html_text .= "{\n";
        $html_text .= "    var start = new Date;\n";
        $html_text .= "    (function next() \n";
        $html_text .= "    {\n";
        $html_text .= "        var time = new Date - start;\n";
        $html_text .= "        if (time < duration)\n";
        $html_text .= "        {\n";
        $html_text .= "            element.style.opacity = 1 - time / duration;\n";
        $html_text .= "            requestAnimationFrame(next);\n";
        $html_text .= "        }\n";
        $html_text .= "        else\n";
        $html_text .= "        {\n";
        $html_text .= "            element.style.opacity = '0';\n";
        $html_text .= "        }\n";
        $html_text .= "    }) ();\n";
        $html_text .= "}\n";
        $html_text .= "function onEnter(elem)\n";
        $html_text .= "{\n";
        $html_text .= "    elem.style.background = 'skyblue';\n";
        $html_text .= "    var re = /([A-Z]+\\d+)/g;\n";
        $html_text .= "    var re_range = /([A-Z]+)(\\d+):([A-Z]+)(\\d+)/g\n";
        $html_text .= "    var s = currentElem.innerText;\n";
        $html_text .= "    var col = 'AliceBlue';\n";
        $html_text .= "    m = re_range.exec(s);\n";
        $html_text .= "    if (m)\n";
        $html_text .= "    {\n";
        $html_text .= "        var i = parseInt (m[2]);\n";
        $html_text .= "        var j = parseInt (m[4]);\n";
        $html_text .= "        var w = m[1];\n";
        $html_text .= "        var z = m[3];\n";
        $html_text .= "        while (i <= j)\n";
        $html_text .= "        {\n";
        $html_text .= "            w = m[1];\n";
        $html_text .= "            while (w <= z)\n";
        $html_text .= "            {\n";
        $html_text .= "                if (document.getElementById(w + '' + i) != null)\n";
        $html_text .= "                {\n";
        $html_text .= "                    document.getElementById(w + '' + i).style.background = col;\n";
        $html_text .= "                }\n";
        $html_text .= "                w = String.fromCharCode(w.charCodeAt(0) + 1);\n";
        $html_text .= "            }\n";
        $html_text .= "            i += 1;\n";
        $html_text .= "        }\n";
        $html_text .= "    }\n";
        $html_text .= "    var m;\n";
        $html_text .= "    var col = 'mediumpurple';\n";
        $html_text .= "    do {\n";
        $html_text .= "        m = re.exec(s);\n";
        $html_text .= "        if (m) {\n";
        $html_text .= "            if (document.getElementById(m[0]) != null) {\n";
        $html_text .= "                document.getElementById(m[0]).style.background = col;\n";
        $html_text .= "                console.log(m[0]);\n";
        $html_text .= "            }\n";
        $html_text .= "            if (col == 'mediumpurple') { col = 'bisque'; } \n";
        $html_text .= "            else if (col == 'bisque') { col = 'mediumaquamarine'; } \n";
        $html_text .= "            else if (col == 'mediumaquamarine') { col = 'dodgerblue'; } \n";
        $html_text .= "        }\n";
        $html_text .= "    } while (m);\n";
        $html_text .= "        \n";
        $html_text .= "    fieldID.innerHTML = '<div class=\"field_border\"><span style=\"font-family: Arial; font-size: 11\">' + `\${currentElem.id}` + '</span></div>';\n";
        $html_text .= "    var rect = elem.getBoundingClientRect();\n";
        $html_text .= "    var rect2 = fieldID.getBoundingClientRect();\n";
        $html_text .= "    var scrollLeft = (window.pageXOffset !== undefined) ? window.pageXOffset : (document.documentElement || document.body.parentNode || document.body).scrollLeft;\n";
        $html_text .= "    var scrollTop = (window.pageYOffset !== undefined) ? window.pageYOffset : (document.documentElement || document.body.parentNode || document.body).scrollTop;\n";
        $html_text .= "    fieldID.style.top = rect.bottom - (rect2.height) + (scrollTop);\n";
        $html_text .= "    fieldID.style.left = rect.right - (rect2.width) + (scrollLeft);\n";
        $html_text .= "    fieldID.style.position = \"absolute\";\n";
        $html_text .= "    fade (fieldID, 1500);\n";
        $html_text .= "}\n";
        $html_text .= "function onLeave(elem) \n";
        $html_text .= "{\n";
        $html_text .= "    elem.style.background = '';\n";
        $html_text .= "    var re = /([A-Z]+\\d+)/g;\n";
        $html_text .= "    var re_range = /([A-Z]+)(\\d+):([A-Z]+)(\\d+)/g\n";
        $html_text .= "    var col = 'AliceBlue';\n";
        $html_text .= "    var s = currentElem.innerText;\n";
        $html_text .= "    m = re_range.exec(s);\n";
        $html_text .= "    if (m)\n";
        $html_text .= "    {\n";
        $html_text .= "        var i = parseInt (m[2]);\n";
        $html_text .= "        var j = parseInt (m[4]);\n";
        $html_text .= "        var w = m[1];\n";
        $html_text .= "        var z = m[3];\n";
        $html_text .= "        while (i <= j)\n";
        $html_text .= "        {\n";
        $html_text .= "            w = m[1];\n";
        $html_text .= "            while (w <= z)\n";
        $html_text .= "            {\n";
        $html_text .= "                if (document.getElementById(w + '' + i) != null)\n";
        $html_text .= "                {\n";
        $html_text .= "                    document.getElementById(w + '' + i).style.background = '';\n";
        $html_text .= "                }\n";
        $html_text .= "                w = String.fromCharCode(w.charCodeAt(0) + 1);\n";
        $html_text .= "            }\n";
        $html_text .= "            i += 1;\n";
        $html_text .= "        }\n";
        $html_text .= "    }\n";
        $html_text .= "            console.log(s);\n";
        $html_text .= "    var m;\n";
        $html_text .= "    do {\n";
        $html_text .= "        m = re.exec(s);\n";
        $html_text .= "        if (m) {\n";
        $html_text .= "            if (document.getElementById(m[0]) != null) {\n";
        $html_text .= "                document.getElementById(m[0]).style.background = '';\n";
        $html_text .= "                console.log(m[0]);\n";
        $html_text .= "            }\n";
        $html_text .= "        }\n";
        $html_text .= "    } while (m);\n";
        $html_text .= "    fieldID.innerHTML = '<div class=\"field_border\"><span style=\"font-family: Arial; font-size: 11\">' + `\${currentElem.id}` + '</span></div>';\n";
        $html_text .= "    var rect = elem.getBoundingClientRect();\n";
        $html_text .= "    var rect2 = fieldID.getBoundingClientRect();\n";
        $html_text .= "    var scrollLeft = (window.pageXOffset !== undefined) ? window.pageXOffset : (document.documentElement || document.body.parentNode || document.body).scrollLeft;\n";
        $html_text .= "    var scrollTop = (window.pageYOffset !== undefined) ? window.pageYOffset : (document.documentElement || document.body.parentNode || document.body).scrollTop;\n";
        $html_text .= "    fieldID.style.position = \"absolute\";\n";
        $html_text .= "    fieldID.style.top = rect.bottom - (rect2.height) + (scrollTop);\n";
        $html_text .= "    fieldID.style.left = rect.right - (rect2.width) + (scrollLeft);\n";
        $html_text .= "}\n";
        $html_text .= "</script>\n";
        $html_text .= "</body>\n";
        $html_text .= "</html>\n";

        if ($txt =~ m/GET.*show_mesh.*col1=([A-Z]).*col2=([A-Z]).*col3=([A-Z])/m || $txt =~ m/GET.*graph_mesh.*col1=([A-Z]).*col2=([A-Z]).*col3=([A-Z])/m || $txt =~ m/GET.*3dgraph.*col1=([A-Z]).*col2=([A-Z]).*col3=([A-Z])/m)
        {
            my $col1 = $1;
            my $col2 = $2;
            my $col3 = $3;

            my $col_header1 = get_col_header ($col1);
            my $col_header2 = get_col_header ($col2);
            my $col_header3 = get_col_header ($col3);

            my $mesh;
            my $shape_data;
            my $straight_shape_data;
            my $straight_rn = 0;
            my $straight_max_row_num = 0;
            my $straight_last_mod_2 = 0;
            my %straight_row_lookup;
            my $rn = 2;

            my %lookup_1;
            my $lookup1_counter = 0;
            my %lookup_2;
            my $lookup2_counter = 0;
            my %val_lookup1;
            my %row_lookup;
            my %hash_shape_data;

            while ($rn < $max_rows)
            {
                my $field1 = get_field_value ($rn, $col1, 0, $show_formulas);
                my $field2 = get_field_value ($rn, $col2, 0, $show_formulas);
                my $field3 = get_field_value ($rn, $col3, 0, $show_formulas);

                $straight_row_lookup {$straight_rn} = "$field1,$field2:$field3;$straight_rn";

                if (!defined ($lookup_2 {$field2}))
                {
                    $lookup_2 {$field2} = $lookup2_counter;
                    $lookup2_counter ++;
                }
                if (!defined ($lookup_1 {$field1}))
                {
                    $lookup_1 {$field1} = $lookup1_counter;
                    $lookup1_counter++;
                }
                if (!defined ($val_lookup1 {"$field1,$field2"}))
                {
                    $val_lookup1 {"$field1,$field2"} = $field3;
                }

                my $row_x = $lookup_1 {$field1};
                my $row_y = $lookup_2 {$field2};
                $row_lookup {"$rn.row"} = "$field1,$field2:$field3;$row_x,$row_y";
                $straight_rn++;
                $rn++;
            }

            $mesh .= "\n";

            $rn = 2;
            my $k;
            my $k2;
            my $x = 0;
            my $y = 0;
            my $max_x = 0;
            my $max_y = 0;
            my $max_z = -100000;
            my $min_z = 100000;
            my $last_good_data_point = "";
            foreach $k (sort { $a<=>$b } keys (%lookup_1))
            {
                foreach $k2 (sort { $a<=>$b } keys (%lookup_2))
                {
                    if (!defined ($val_lookup1{"$k,$k2"}))
                    {
                        $mesh .= "MISSING($k;$k2),";
                    }
                    else
                    {
                        $mesh .= $val_lookup1{"$k,$k2"} . ",";
                        my $r = $k;
                        my $c = $k2;

                        my $val = 0;
                        if (defined ($val_lookup1{"$k,$k2"}))
                        {
                            $val = $val_lookup1{"$k,$k2"};
                            if ($val =~ m/e-0[1-9][0-9]+/)
                            {
                                $val = 0.0;
                            }
                            if ($val =~ m/e+[0-9]+/)
                            {
                                $val = $max_z;
                            }
                            if ($val =~ m/[0-9]/)
                            {
                                $shape_data .= "shape_data[$x][$y] = {x:$k, y:$k2, z:$val}; //$k,$k2\n";
                                $last_good_data_point = "{x:$k, y:$k2, z:$val}; //$k,$k2";
                            }
                            else
                            {
                                $shape_data .= "shape_data[$x][$y] = $last_good_data_point // using last known good val\n";
                            }
                        }

                        if ($max_z < $val_lookup1{"$k,$k2"})
                        {
                            $max_z = $val_lookup1{"$k,$k2"};
                        }
                        if ($min_z > $val_lookup1{"$k,$k2"})
                        {
                            $min_z = $val_lookup1{"$k,$k2"};
                        }
                        $y++;
                        if ($max_y < $y)
                        {
                            $max_y = $y;
                        }
                    }
                }
                $mesh .= "\n";
                $x++;
                if ($max_x < $x)
                {
                    $max_x = $x;
                }
                $y = 0;
            }

            my $i;
            my $j;
            my $has_shape_data;
            my $count = 0;
            my $mc = 0;
            for ($i = 0; $i < $max_x; $i++)
            {
                for ($j = 0; $j < $max_y; $j++)
                {
                    if (!defined ($hash_shape_data {"[$i][$j]"}))
                    {
                        $hash_shape_data {"[$i][$j]"} = 0;
                        $count ++;
                    }
                    else
                    {
                        $has_shape_data .= "// [$i][$j] -- matched\n";
                        $mc ++;
                    }
                }
            }

            $has_shape_data .= "// Overall count = $count ($max_x * $max_y) - matched $mc\n";
            my $r;
            my $row_shape_data;

            foreach $r (sort { $a<=>$b } keys (%row_lookup))
            {
                my $val = 0;
                if (defined ($row_lookup{$r}))
                {
                    $val = $row_lookup{$r};
                    if ($val =~ m/^([0-9\.\-]+),([0-9\.\-]+):([0-9\.\-]+);(\d+),(\d+)$/)
                    {
                        my $field1 = $1;
                        my $field2 = $2;
                        my $field3 = $3;
                        my $x = $4;
                        my $y = $5;
                        $row_shape_data .= "shape_data[$x][$y] = {x:$field1, y:$field2, z:$field3}; // Explicit Row from $val\n";
                        $hash_shape_data {"[$x][$y]"} = 1;
                        #$has_shape_data .= "//[$x][$y] = ok\n";
                        $last_good_data_point = "{x:$field1, y:$field2, z:$field3};";
                    }
                }
            }

            foreach $r (sort { $a<=>$b } keys (%straight_row_lookup))
            {
                my $val = 0;
                if (defined ($straight_row_lookup{$r}))
                {
                    $val = $straight_row_lookup{$r};
                    if ($val =~ m/^([^,]+),([^:]+):([^;]+);(\d+)$/)
                    {
                        my $field1 = $1;
                        my $field2 = $2;
                        my $field3 = $3;

                        if ((is_number ($field1) && is_number ($field2) && is_number ($field3)))
                        {
                            my $rn = $4;
                            my $col_number = $rn % 2;
                            my $row_number = int ($rn / 2);
                            $straight_last_mod_2 = $col_number;
                            if ($col_number == 0)
                            {
                                if ($straight_max_row_num < $row_number)
                                {
                                    $straight_max_row_num = $row_number;
                                }
                                if (is_small_exponent ($field1)) { $field1 = 0; }
                                if (is_small_exponent ($field2)) { $field2 = 0; }
                                if (is_small_exponent ($field3)) { $field3 = 0; }

                                $straight_shape_data .= "shape_data[$row_number][$col_number] = {x:$field1, y:$field2, z:$field3}; // Straight Row from $val\n";
                            }
                            else
                            {
                                $straight_shape_data .= "shape_data[$row_number][$col_number] = {x:$field1, y:$field2, z:$field3}; // Straight Row from $val\n";
                                if ($straight_max_row_num < $row_number)
                                {
                                    $straight_max_row_num = $row_number;
                                }
                                $last_good_data_point = "{x:$field1, y:$field2, z:$field3};";
                            }
                        }
                    }
                }
            }

            while ($straight_last_mod_2 == 0)
            {
                $straight_last_mod_2++;
                $straight_shape_data .= "shape_data[$straight_max_row_num][$straight_last_mod_2] = $last_good_data_point; // Adding in last one..\n";
            }

            my $bsr;
            foreach $bsr (sort keys (%hash_shape_data))
            {
                if ($hash_shape_data {$bsr} == 0)
                {
                    #$row_shape_data .= "//delete shape_data$bsr;\n";
                    $row_shape_data .= "shape_data$bsr = $last_good_data_point // aslkdjasd using last known good val\n";
                    #$has_shape_data .= "//$bsr = AA NOT ok\n";
                }
            }

            if ($txt =~ m/GET.*show_mesh.*col1=([A-Z]).*col2=([A-Z]).*col3=([A-Z])/m)
            {
                my $title = $col_header1 . " x " . $col_header2 . " x " . $col_header3;
                my $other_html = get_3dgraph_html ($row_shape_data, $title, $max_x, 0, $max_y, 0, $max_z, $min_z, -10, -10, 50, 0);
                my $html_text = "<html> <head> <META HTTP-EQUIV=\"CACHE-CONTROL\" CONTENT=\"NO-CACHE\"> <br> <META HTTP-EQUIV=\"EXPIRES\" CONTENT=\"Mon, 22 Jul 2094 11:12:01 GMT\"> </head> <body> <h1>Mesh</h1> <br> <form action=\"mesh\" id=\"mesh\" name=\"mesh\" method=\"post\"> <textarea id=\"mesh1\" class=\"text\" cols=\"86\" rows =\"20\" form=\"mesh\" name=\"mesh1\">$mesh</textarea><textarea id=\"3dhtml\" class=\"text\" cols=\"86\" rows =\"20\" form=\"mesh\" name=\"3dhtml\">$other_html</textarea>";
                write_to_socket (\*CLIENT, $html_text, "", "noredirect");
                next;
            }
            elsif ($txt =~ m/GET.*graph_mesh/m)
            {
                my $world_x = -10;
                my $world_y = -10;
                my $world_z = 50;
                my $use_auto = 0;
                if ($txt =~ m/GET.*graph_mesh.*xworld=((-|)[0-9]+).*yworld=((-|)[0-9]+).*zworld=((-|)[0-9]+)/m)
                {
                    $world_x = $1;
                    $world_y = $3;
                    $world_z = $5;
                    $use_auto = 1;
                }
                $row_shape_data .= "\n\n" . $has_shape_data;
                my $title = $col_header1 . " x " . $col_header2 . " x " . $col_header3;
                my $html_text = get_3dgraph_html ($row_shape_data, $title, $max_x, 0, $max_y, 0, $max_z, $min_z, $world_x, $world_y, $world_z, $use_auto, 1);
                write_to_socket (\*CLIENT, $html_text, "", "noredirect");
                next;
            }
            elsif ($txt =~ m/GET.*3dgraph/m)
            {
                my $world_x = -10;
                my $world_y = -10;
                my $world_z = 50;
                my $use_auto = 0;
                my $title = $col_header1 . " x " . $col_header2 . " x " . $col_header3;
                my $html_text = get_3dgraph_html ($straight_shape_data, $title, $straight_max_row_num+1, 0, 2, 0, $max_z, $min_z, $world_x, $world_y, $world_z, $use_auto, 0);
                write_to_socket (\*CLIENT, $html_text, "", "noredirect");
                next;
            }
        }

        write_to_socket (\*CLIENT, $html_text, "", "noredirect");
        $have_to_write_to_socket = 0;
        print ("============================================================\n");
    }
}