sub print_shape {
  my $self=shift;
  foreach (@{$self->{shape}}) {
    print "$_\n";
  } 
}