a:-get0(X),X>0,put(X),a.
m:-skip(10),a.