My first Prolog program. =P

%% Tests whether a number is prime or not.

prime(X) :- integer(X), prime(2,X).
prime(N,X) :- N < X, N1 is N+1, M is X mod N, M =\= 0, prime(N1,X).
prime(X,X).

^_^