kill(all)$

van=facebook.com/LearningCalculus;

X:solve(x^6 = 64,x);

R:makelist(rhs(X[i]),i,1,length(X));

delete(false,makelist(if equal(imagpart(R[i]),0) then R[i],i,1,length(R)));