Grains - Prolog | SlaveCode