Simple Program In Prologo