Orphaning pl (SWI Prolog)