#!/usr/bin/perl -w
use strict;

my $count;
my $bits = ~(0);

while ($bits) {
  $bits >>= 1;
  $count++;
}

print "$count bit words are being used.\n";