part('(Ndown[a, b]), );
raise(tensor, )


args('(Ndown[a, b]));


raise(tensor, index) := sum(ug[''index, m] * ''tensor, m, 1, 2);

raise('(Ndown[a, b]), 'a);
--> sum(ug[])

:lisp (format t "~A" #$'(Ndown[a,b])$)

:lisp (mfuncall '$mnctimes $ug $ug)

:lisp (displa (mfuncall 'mnctimes $ug $ug));

:lisp #$mcs[1,1,1]$;

mcs[1,1,1]

ug . ug;

:lisp (format t "~A" #$c . d$)

'Ndown[a, b]

('Ndown[a,b])