#!/usr/bin/env perl
use utf8;
###############################################################################
# This program...
# 
# Copyright © 2021 Richard Lesh.  All rights reserved.
###############################################################################

use Utils;
use strict;
use warnings;

MAIN:
{
    binmode(STDOUT, ":utf8");
    binmode(STDERR, ":utf8");
    binmode(STDIN, ":utf8");
    foreach my $arg (@ARGV) {
        utf8::decode($arg);
    }
    if (scalar(@ARGV) != 1) {
        print "Syntax: ", "Starter", " 5|10|20|40\n";
        exit 1;
    }
    my $series = Utils::stoiWithDefault($ARGV[0], 5);

    print "Hello, world!\n";
}