# DynInterp.pm
package DynInterp;
use overload '""' => 'stringify';

sub new {
	my $class = shift;
	bless [@_], $class;
}

sub stringify {
	my $this = shift;
	return join('', map { ref($_)eq'SCALAR'?$$_:ref($_)eq'ARRAY'?"@{$_}":$_ } @$this);
}
1;