# バナーから runlength encode したコードを作る。
# 左端から縦に読んで行って，１数字毎に "#", "." が入れ替わるように
# コーディング。

# 注 : perl では $a[1,2] とは書けない！
# ハッシュとして $a{1,2} のように書かないといけない。

$str= <STDIN>;

$tate= $ARGV[0];

open FH, "echo \"$str\" | /usr/bin/banner -w $tate |";
$j= 0;
while(<FH>){
    chomp;
    @line= split(//);
    for($i=0; $i<$tate; $i++){
	$data{$tate-$i-1,$j}= ($line[$i] eq "#")? "#" : ".";
    }
    $j++;
}
close FH;

$yoko= $j;

printf("\"%d:%d",$tate,$yoko);
$c= $data{0,0};
printf("%s",$c);


# $maxnum= 15;   # 'f' までの場合
$maxnum= 35; # 'z' までの場合

$i= 0;  $j= 0;
$rl= 0;
for($co=0; $co<$tate*$yoko*3; $co++){
    if ( ($data{$i,$j} eq $c) and ($rl<$maxnum) ){
#	printf("%d %d %s\n",$i,$j,$data{$i,$j}); #################
	$rl++;
	$i++;
	if ($i>=$tate){  $j++;  $i= 0;  }
    }else{
	printf("%s",substr("0123456789abcdefghijklmnopqrstuvwxyz",$rl,1));
#	printf("%x",$rl);
	$rl= 0;
	$c= ($c eq "#")? "." : "#";
    }
    if ($j>=$yoko){
	printf("%s",substr("0123456789abcdefghijklmnopqrstuvwxyz",$rl,1));
#	printf("%x",$rl);
	last;
    }
}
printf("\"\n");



