#!/usr/local/bin/perl

$number = shift ;
($number < 31 ) || die "Too many tests to make!" ; 
($number > 0 )  || die "Too few test to make!" ; 

for ( $i=0; $i<$number; $i++ ) {
   system("mktest.pl") ;
   system("lpr test.ps") ;
}

