Use prolog to execute certain procedures

To execute certain procedures using Swirl Prolog. Not allowed to use any non-logical features of Prolog other than is/2. Non-logical features include the explicit cut !, implicit cut within ->, assert, retract, record, etc.