% file: tdp  --  a very simple top-down parser 
% query: s([the rhino ate the violet],[])?

dcg!

s --> np, vp.
np --> det, noun.
vp --> verb, np.

det --> [the].
noun --> [rhino].
noun --> [violet].
verb --> [ate].
