#!/usr/bin/perl

if(@ARGV != 4){
    print("Usage: dormatroid.pl <times> <rows> <cols> <char>\n");
    exit(1);
}


$limit = $ARGV[0];
$rows = $ARGV[1];
$cols = $ARGV[2];
$fchar = $ARGV[3];

$i=0;

while ($i < $limit) {
    $i++;
    `rmatroid.pl $rows $cols $fchar`; 
    printf("rmatroid.pl $rows $cols $fchar  TAKE $i\n"); 
}