#!/usr/bin/env perl

use strict;
use warnings;

use FindBin;
use lib "$FindBin::RealBin/lib";
use lib 'lib';
use BinaryGap;

use Data::Dumper;

print "Input: " . Dumper($ARGV[0]);

my $number = $ARGV[0];
my $answer = BinaryGap::solution($number);
print "Got answer $answer\n";

exit;