package R;

    sub new {
        my $this = shift;
        my $class = ref($this) || $this;

        my $self = { @_ };
        bless $self, $class;
    }