retira(p) = {t | t <- p : L(t) != <"*","*">};