

<格 #k #x>
	<* #x> 

	(
		  "を"		<is #k "対象"> 
		| "は"		<is #k "動作主"> 
		| "の"		<is #k "所属"> 
		| "に"		<is #k "目標"> 
		| "が"		<is #k "動作主">
	)
 		<GETTOKEN #g>
	(
		  ","
		| "、"
		| "，"
		| <SPACE>
		| (
		    ::sys <rightstr #rc #x 1>
		    <NEXTCHAR #lc>  
		   (
			(  ::sys <syntax #rc <NONRANGE _ "あ" "ん">>
		    	 | ::sys <syntax #lc <NONRANGE _ "あ" "ん">>
			)
		   )		  
		 )
	)


	<print #k #x #g>
	;

<述語 #y #t>
	<* #y>
	(
	   "ます"
	 | "です"
	 | "だ"
	 | "した"
	 | <SPACE>
	 | <CR>
	)
		<GETTOKEN #t>

	(
		  "。"
		| <SPACE>
		| <CR>
		| <EOF>
	)			<print "述語" #y #t><print>
	;



<文>
	{
	 <格 #k #x>
	}
	<述語 #y #t>
	;

<読み込み>
	{ 
		::sys <getline #x 
			::sys <strdelcntl #y #x> 
			::sys <split #l #y "。">
			<foreach (#i #l)
				<print ">" #i "。"><print>
				::sys <syntax #i {<文>}>
			>>
	};
	

? <読み込み>;

