programacion en prolog suma de lista de numeros con recursividad

_____________________________________________

(defun lista (a b c d e)
(setq li (list a b c d e))
(setq suma 0)
(setq i 0)
(while (< i 5)
(setq  val (nth i li)
)

(setq i (+ i 1))
(setq suma(+ suma val))
)
____________________________________________

producto y suma de dos numeros

producto y suma de dos numeros

import java.io.*;

class propuesto3producysuma{

public static void main(String[]args) throws IOException

{

BufferedReader in=new BufferedReader (new InputStreamReader(System.in));

<!--more-->

System.out.print("ingrese el primer numero positivo: ");

int a=Integer.parseInt(in.readLine());

System.out.print("ingrese el segundo número positivo:");

int b=Integer.parseInt(in.readLine());

int c;

if ((a>0) &&(b&gt;0))

{ c=a*b;

System.out.println("el producto de dichos numeros es:"+c);

}

else {

c=a+b;

System.out.println("la suma de dichos numeros es:"+c);

}

}

}