A sample from their user manual[0]:<p><pre><code> % print even numbers between 1 and 10
main :- count(1).
count(11).
count(N) :- N =< 10 | even(N), N2 is N + 1, count(N2).
even(N) :- M is N \\ 2, even(M, N).
even(0, N) :- writeln(N).
even(_, _) :- otherwise | true.
</code></pre>
[0] <a href="http://www.call-with-current-continuation.org/strand/MANUAL" rel="nofollow">http://www.call-with-current-continuation.org/strand/MANUAL</a>