use v5.8;
use strict;
use warnings;
use utf8;
use charnames ':full';

package VM_List;

my $LN= "\N{POUND SIGN}";  # used for List Name.

use overload
   '""' => \&stringify;

sub create
 {
 my ($class, $listref)= @_;
 bless $listref, $class;
 return $listref;
 }

sub stringify
 {
 my $self= shift;
 return "$LN( " . join (' ', @$self) .  ' )';
 }

return 1;  # loaded OK