Lista* lst_del(Lista* l, int pos) {
    if (pos == 0){
        Lista *p;
        p = l->prox;
        free(l);
        return p;
    }
	else if (pos+1 > lst_tam(l)) {
		return l;
	} else {
		int i;
		Lista *p = l;
		Lista *v = l->prox->prox;
		for (i=1; i<pos; i++) {
			p = p->prox;
			v = v->prox;
		}
		free(p->prox);
		p->prox = v;
		return l;
	}
}