sub Bar::new {
        my $class= shift(@_);
        return bless [@_], $class;
    }