kill(all)$

van=facebook.com/LearningCalculus$

M(theta):=matrix
(
    [cos(theta),-sin(theta)],
    [sin(theta), cos(theta)]
);

F(t):=matrix([t],[abs(t)]);

M(theta).F(t);

M(-%pi/2).F(t);