如何编写只将正数相加的prolog程序？

我正在努力学习prolog，这是一个我需要的小程序，但是，我不知道怎么做

谁能帮我一下吗

我们有负鼠

这是一个数字列表。 K是正数之和

-负鼠（[5，-1,3]，K）

应打印出：K=8

---

谢谢你抽出时间

多谢各位！你帮了大忙！非常感谢你！你帮了大忙！

possum(L, X) :- include(<(0), L, P), sum_list(P, X).

?- possum([5, -1, 3], X).
X = 8.