% A grammar written in BH-GRN}
% grambhgrn.pl

:- op(1200, xfx, --->).
:- op(1200, xfx, ===>).

s  ---> [np, vp].
vp ---> [v].
vp ---> [v, np].

np ===> [toby].
np ===> [scotch].
np ===> [drinks].
v  ===> [drinks].