#!/usr/bin/perl
use strict;
use warnings;
use PDL::LiteF;
#dog dosn't work on huge values

my $u = pdl [1,2,3,4];
my $dim = 4;
print join "\t", $u->dog;
print "\n";