package BZS::Nest1;

use strict;
#use warnings;
use vars qw($VERSION);
$VERSION = do { my @r = (q$Revision: 0.02 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };


sub prnt {
  print @_;
}

1;