sub new {
    my ($class, $initial_int) = @_;;
    my $scalar = 0+($initial_int // 0);
    return bless \$scalar, $class;
}