/*  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.
*/

:- nl.
:- write_ln('a simple English grammar').
:- write_ln('call: ?- s([the, man, was, nice]).').
:- nl.

det --> [the].
n --> [man].
n --> [men].
n --> [woman].
n --> [women].
n --> [fish].
adj --> [good].
adj --> [happy].
adj --> [nice].
cop --> [are].
cop --> [is].
cop --> [was].
cop --> [were].

s --> np, vp.
np --> det, nbar.
nbar --> n.
vp --> cop, advp.
advp --> adj.

s(Sentence) :- s(Sentence,[ ]).