zahlen-bis-10.pl 86 B

123
  1. nat(1).
  2. nat(X) :- nat(X1),X is X1+1.
  3. nat10(X) :- nat(X), ( X > 10 -> !, fail ; true ).