Prolog - POR FAVOR, necesito el alg. A*

Por Favor, es urgente, necesito el algoritmo A* de busqueda informada, en Prolog.

:"( Alguien que me ayude, GRACIAS