use strict;
use warnings;

use vars qw($a $b @wyniki);
$a = 6;   #kostka 
$b = 10;  #licznik
@wyniki = ();

require gts; #generate_throws_simple
require pts; #print_throws_simple

gts->import();
pts->import();

print "\n-------------------STANDARDOWE LOSOWANIE----------------\n";
print_throws_simple(generate_throws_simple($a,$b)); #standardowe losowanie