use v5.12;
use warnings;
use bigint;

#say my $bin = join "", map { int rand(2) ? '0': '1' } 1..100;
say $bin =  1 . 0 x 8192 ;
say oct("0b".$bin);