/*
 * suprimir elimina un elemento X de una lista simple
 *
 */ 

suprimir(_,[],[]).

suprimir(X,[X|Cola],R):- !, suprimir(X,Cola,R).

suprimir(X,[Y|Cola],[Y|R]):- suprimir(X,Cola,R).



