/*********************************************************************/
/*								     */
/* test 							     */
/*								     */
/* Copyright (C) 1997 Thanaruk Theeramunkong (ping@jaist.ac.jp)      */ 
/*                    Manabu Okumura         (oku@jaist.ac.jp)       */
/*                    Susumu Kunifuji        (kuni@jaist.ac.jp)      */
/*                    Hiroki Imai            (imai@cs.titech.ac.jp)  */
/*								     */
/*					     	9 May 1997	     */
/*								     */
/*								     */
/*********************************************************************/

:- write('Correct Sentences'),nl,nl.

:- parser([[n,i],[v,am],[n,boy],[null,null]]).

:- parser([[det,a],[n,boy],[v,sees],[det,a],[n,girl],[p,with],[det,a],[n,telescope],[null,null]]).

:- parser([[det,a],[n,boy],[v,sees],[det,a],[n,girl],[p,with],[det,a],[n,telescope],[p,with],[det,a],[n,telescope],[null,null]]).

:- parser([[det,a],[n,boy],[v,sees],[det,a],[n,girl],[p,with],[det,a],[n,telescope],[p,with],[det,a],[n,telescope],[p,with],[det,a],[n,telescope],[null,null]]).


:- write('Incorrect Sentences'),nl,nl.

:- parser([[n,i],[n,boy],[null,null]]).

:- parser([[n,i],[v,am],[det,the],[det,the],[n,boy],[null,null]]).

:- parser([[n,i],[n,boy],[p,with],[null,null]]).

:- parser([[det,the],[n,boy],[det,the],[n,boy],[v,am],[det,the],[n,boy],[null,null]]).

:- parser([[n,i],[n,am],[n,boy],[null,null]]).




% Correct Sentences

% [sentence,[[s,[[np,[[np,[[det,the:0],[n,boy:0]]:0],[pp,[[p,subword(det,the):1],[np,[[n,boy:0]]:0]]:1]]:1],[vp,[[v,am:0],[np,[[det,the:0],[n,boy:0]]:0]]:0]]:1]]:1]

:- parser([[prp,i],[md,would],[vb,like],[to,to],[vb,ask],[nn,something],[in,about],[nn,registration],[to,to],[dt,the],[nn,conference],[null,null]]).
:- parser([[prp,i],[md,would],[vb,like],[to,to],[vb,ask],[nn,something],[in,about],[nn,registration],[null,null]]).
:- parser([[rb,just],[dt,a],[nn,moment],[null,null]]).
:- parser([[prp,i],[md,would],[vb,like],[to,to],[vb,ask],[nn,something],[null,null]]).
:- parser([[prp,i],[vbp,have],[dt,the],[nn,registration],[nn,form],[rb,here],[in,at],[nn,hand],[null,null]]).
:- parser([[prp,i],[vbp,have],[dt,the],[nn,registration],[null,null]]).

:- parser([[prp,i],[md,would],[vb,like],[to,to],[vb,ask],[nn,something],[in,about],[nn,registration],[null,null]]).

:- parser([[prp,i],[md,would],[vb,like],[to,to],[vb,ask],[nn,something],[in,about],[nn,registration],[in,about],[nn,registration],[null,null]]).

:- parser([[prp,i],[md,would],[vb,like],[to,to],[vb,ask],[nn,something],[in,about],[nn,registration],[in,about],[nn,registration],[in,about],[nn,registration],[null,null]]).

:- parser([[prp,i],[md,would],[vb,like],[to,to],[vb,ask],[nn,something],[in,about],[nn,registration],[in,about],[nn,registration],[in,about],[nn,registration],[in,about],[nn,registration],[null,null]]).


% Incorrect Sentences

:- parser([[prp,i],[md,would],[md,would],[vb,like],[to,to],[vb,ask],[nn,something],[in,about],[nn,registration],[null,null]]).

:- parser([[prp,i],[md,would],[vb,like],[to,to],[vb,ask],[nn,something],[in,about],[nn,registration],[to,to],[dt,the],[nn,conference],[null,null]]).

:- parser([[prp,i],[md,would],[vb,like],[to,to],[dt,xxx],[vb,ask],[nn,something],[in,about],[nn,registration],[null,null]]).

:- parser([[prp,i],[md,would],[nn,something],[in,about],[nn,registration],[null,null]]).

:- parser([[prp,i],[md,would],[vb,like],[to,to],[vb,like],[to,to],[vb,ask],[nn,something],[in,about],[nn,registration],[null,null]]).

