/* Copyright (C) Wolfgang Menzel, Universität Hamburg, 2003-06-27 This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. */ :- use_module(instance_diag). :- nl. :- write_ln('a simple instance-based system with error anticipation'). :- write_ln('subject-verb agreement in a two-word sentence'). :- nl. exercise(agreement1,'Build a sentence using the following words.'). item(agreement1,1,'Mary, sleep',[[[mary, sleeps]]]). item(agreement1,2,'I, drink',[[[i, drink]]]). item(agreement1,3,'he, walk',[[[he, walks]]]). item(agreement1,4,'they, dance',[[[they, dance]]]). :- do_exercise(agreement1).