pp_def(
    'tricpy',
    Pars => 'A(m,n);uplo();[o] C(m,n)',
    PMCode => 'sub PDL::tricpy {
        return PDL::_tricpy_int(@_) if @_ == 3;
        my ($A, $uplo) = @_;
        PDL::_tricpy_int($A, $uplo // 0, my $C = PDL->null);
        $C;
    }',
    Code => '
        ...
    ',
    Doc => <<EOT
=for ref

Copy triangular part to another matrix. If uplo == 0 copy upper triangular part.

=cut

EOT

);