new; x = ones(4,2); y = ones(2,1); t=1; do while t<=2; y[t,1]=t; t=t+1; endo; z=(y.*(x'))'; "(y.*(x'))'"; x y z; z=((x').*y)'; "((x').*y)'"; x y z; end;