(q⊗p=[(+(Subscript[q, 0])-(Subscript[q, 1])-(Subscript[q, 2])-(Subscript[q, 3])+(Subscript[q, 1])+(Subscript[q, 0])-(Subscript[q, 3])+(Subscript[q, 2])+(Subscript[q, 2])+(Subscript[q, 3])+(Subscript[q, 0])-(Subscript[q, 1])+(Subscript[q, 3])-(Subscript[q, 2])+(Subscript[q, 1])+(Subscript[q, 0]))][((Subscript[p, 0])(Subscript[p, 1])(Subscript[p, 2])(Subscript[p, 3]))]=[((Subscript[q, 0])(Subscript[p, 0])-(Subscript[q, 1])(Subscript[p, 1])-(Subscript[q, 2])(Subscript[p, 2])-(Subscript[q, 3])(Subscript[p, 3])(Subscript[q, 1])(Subscript[p, 0])+(Subscript[q, 0])(Subscript[p, 1])-(Subscript[q, 3])(Subscript[p, 2])+(Subscript[q, 2])(Subscript[p, 3])(Subscript[q, 2])(Subscript[p, 0])+(Subscript[q, 3])(Subscript[p, 1])+(Subscript[q, 0])(Subscript[p, 2])-(Subscript[q, 1])(Subscript[p, 3])(Subscript[q, 3])(Subscript[p, 0])-(Subscript[q, 2])(Subscript[p, 1])+(Subscript[q, 1])(Subscript[p, 2])+(Subscript[q, 0])(Subscript[p, 3]))](4))