您也可以考虑使用 forall/2 谓词:

You might also consider using forall/2 predicate:

print:-
 forall(fact(P), writeln(P)).