v={2,-1,1};
w={1,-2,3};
z={3,1,-1};
Cross[v,Cross[w,z]]
Dot[v,z]w-Dot[v,w]z