_ _ _ _ __

_ __ (_)_ __ ___ _ __ ___ __ _ _ __ | |_(_) |/ /

| '_ \| | '__/ _ \| '_ ` _ \ / _` | '_ \| __| | ' /

| |_) | | | | (_) | | | | | | (_| | | | | |_| | . \

| .__/|_|_| \___/|_| |_| |_|\__,_|_| |_|\__|_|_|\_\

|_| la llama que arde: alumbra, calienta y destruye

Oráculo

He aquí un oráculo de la pitia de delfos:

(defun oráculo ()			; función oracular para emacs LISP
  "Muestra el recto camino"
  (interactive)
  (cond ((equal (sha1 (read-passwd "¿Qué distingue a un hombre de un animal?: ")) "57fbc016bbf1e85c7e24ac0dd593a626d0f30310") (message "Felicidades, ya eres un hombre sabio"))
	('t (oráculo))))