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

##</code><code>##

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(print_throws_simple); # symbols automatically exported
our @EXPORT_OK = qw(); # symbols exported on request
our %EXPORT_TAGS = (); # TAG => [qw(name1 name2)]
# ...............................................