#!/usr/bin/perl

sub f {
    $m = shift;
    $i = 1;
    s/.*/a/;
    while( $m-$i ) {
	$i++;
	$_++;
    }
}

f(38);
m/(.)(.)/;
$z = '13733109640717112533';
while( $z ) {
    $g = substr( $z, 0, 5 );
    $z = substr( $z, 5, length $z );
    f($g);
    print;
    $j   %2 and print $2;
    $j++ <2 and print ' ';
}
print"\n";
