#!/usr/bin/perl

use strict;
use warnings;

package Rada;

use Carp;
use Exporter::Easy ( EXPORT => [ qw/&rada/ ] );

sub rada {
	my $max = shift // 0;
	croak "Parametr musi byt kladny" if $max <= 0;

	local ($\, $,) = (qq/\n/, q/ /);
	print (1 .. $max);
};

1;