#!/usr/bin/perl -w
use lib ".";
use Test;

use strict;

$a = 0;

while ($a < 5)
    print ++$a, "\n";
    for $b (1..10)
        print "$a $b\n";
    for $b (11, 12)
        print "$a $b\n";

print "done\n";