then print(ifff successful); ges := subsop(op(1, op(p, V)) = 1, ges); print(ges successful); vor := subsop(op(1, op(p, V)) = p, vor); print(vor successful) p := op(1, op(p, V)); print (p `successful"`); print(p);