Resolvendo 4° exercício de Prolog.