sub FOREIGNBUILDARGS { return @{$_[2]}}

##</code><code>##

use MyMVR;

my $a = MyMVR->new(vec=>[0,0,0]);
my $b = MyMVR->new(vec=>[1,1,1]);

print $_ ."\n" foreach (@{$a - $b});
print $a->dist($b) . "\n";