#!/usr/bin/perl -w

use strict;

my $blocklen;
my $maxN;
my $bitlen;

if (@ARGV < 1) {
  print "Usage: $0 <bitlen> <files...>\n";
  exit 1;
}

$bitlen = shift;
$maxN = 2 ** $bitlen - 1;
$blocklen = int(log($maxN)/log(10.0) / 3.0);

my $cnt = 0;
my $x = "";
my $s;

while (<>) {
  $s = $_;
  while (length($s) > 0) {
    if ($cnt >= $blocklen) {
      print "$x\n";
      $cnt = 0;
      $x = "";
    }
    my $adds = sprintf "%3.3d", ord($s);
    $x = "$x$adds";
    $cnt++;
    $s = substr $s, 1;
  }
}
my $empty = sprintf "%3.3d", ord(" ");
my $y = ($empty x $blocklen);
$x = substr "$x$y", 0, $blocklen*3;
print "$x\n";