package Array;
use strict;

sub new {
  my $class = shift;
  my $self = {};
  $self->{array} = [];
  $self->{size} = 0;
  bless $self, $class;
}
sub add {
  my $self = shift;
  my $ae = shift;
  if ($self->{size} < 1000 - 1) {
    $self->{array}->[$self->{size}++] = $ae;
  }
}
sub getSize {
  my $self = shift;
  return $self->{size};
}
sub getExpression {
  my $self = shift;
  my $i = shift;
  return $self->{array}->[$i];
}
1;