package ConcreteElementB;
use strict;
use base qw(Element);

sub new {
  my $class = shift;
  my $self = {};
  bless $self, $class;
}
sub accept { 
  my $self = shift;
  my $visitor = shift;
  $visitor->visitConcreteElementB($self);
}
sub operationB {
  my $self = shift;
}
1;