

<その他 #s>
		(
		   "万一"	<is #k "万一"> 
		 | "少しも"	<is #k "万一"> 
		 | "何故なら"	<is #k "説明"> 
		 | "因みに"	<is #k "順接,説明"> 
		 | "より"	<is #k "比較"> 
		 | "よもや"	<is #k "万一"> 
		 | "ようやく"	<is #k "徐々"> 
		 | "もっとも"	<is #k "逆接,説明"> 
		 | "もしくは"	<is #k "順接,選択"> 
		 | "もし"	<is #k "条件"> 
		 | "もう"	<is #k "既知"> 
		 | "まるで"	<is #k "説明"> 
		 | "まだ"	<is #k "未定"> 
		 | "または"	<is #k "順接,選択"> 
		 | "また"	<is #k "順接,並立"> 
		 | "まさか"	<is #k "万一"> 
		 | "ならびに"	<is #k "順接,並立"> 
		 | "なぜなら"	<is #k "逆接,説明"> 
		 | "なぜ"	<is #k "理由"> 
		 | "なお"	<is #k "逆接,説明"> 
		 | "ないしは"	<is #k "順接,選択"> 
		 | "どうして"	<is #k "理由"> 
		 | "どうか"	<is #k "祈願"> 
		 | "ところで"	<is #k "逆接,転換"> 
		 | "ところが"	<is #k "逆接,一般"> 
		 | "というのは"	<is #k "逆接,説明"> 
		 | "でも"	<is #k "逆接,一般"> 
		 | "では"	<is #k "順接,条件"> 
		 | "ちょうど"	<is #k "説明"> 
		 | "ちなみに"	<is #k "逆接,説明"> 
		 | "だって"	<is #k "逆接,説明"> 
		 | "だったら"	<is #k "順接,条件"> 
		 | "だけど"	<is #k "逆接,一般"> 
		 | "だが"	<is #k "逆接,一般"> 
		 | "だから"	<is #k "順接,原因"> 
		 | "ただし"	<is #k "逆接,説明"> 
		 | "それはそうと"	<is #k "逆接,転換"> 
		 | "それはさておき"	<is #k "逆接,転換"> 
		 | "それにもかかわらず"	<is #k "逆接,理由"> 
		 | "それにしては"	<is #k "逆接,理由"> 
		 | "それに"	<is #k "順接,追加"> 
		 | "それなら"	<is #k "順接,条件"> 
		 | "それなのに"	<is #k "逆接,理由"> 
		 | "それとも"	<is #k "順接,選択"> 
		 | "それでも"	<is #k "逆接,条件"> 
		 | "それでは"	<is #k "順接,条件"> 
		 | "それで"	<is #k "順接,原因"> 
		 | "それぞれ"	<is #k "説明"> 
		 | "それじゃ"	<is #k "順接,条件"> 
		 | "それが"	<is #k "逆接,一般"> 
		 | "それから"	<is #k "順接,追加"> 
		 | "その結果"	<is #k "順接,原因"> 
		 | "そのまま"	<is #k "定"> 
		 | "そのまま"	<is #k "状況"> 
		 | "そのために"	<is #k "順接,原因"> 
		 | "そのため"	<is #k "順接,原因"> 
		 | "そのうえで"	<is #k "順接,追加"> 
		 | "そのうえ"	<is #k "順接,追加"> 
		 | "その"	<is #k "連体詞"> 
		 | "そして"	<is #k "順接,並立"> 
		 | "そこで"	<is #k "順接,条件"> 
		 | "そうか"	<is #k "閃き"> 
		 | "そういえば"	<is #k "逆接,転換"> 
		 | "ぜひ"	<is #k "誘致"> 
		 | "すると"	<is #k "順接,条件"> 
		 | "しっかり"	<is #k "確固"> 
		 | "したがって"	<is #k "順接,原因"> 
		 | "しかも"	<is #k "順接,追加"> 
		 | "しかし"	<is #k "逆接,一般"> 
		 | "さらに"	<is #k "追加"> 
		 | "さて"	<is #k "逆接,転換"> 
		 | "このまま"	<is #k "状況"> 
		 | "この"	<is #k "連体詞"> 
		 | "けれども"	<is #k "逆接,一般"> 
		 | "けれど"	<is #k "逆接,一般"> 
		 | "けっして"	<is #k "逆接"> 
		 | "きっと"	<is #k "推測"> 
		 | "かつてなく"	<is #k "初"> 
		 | "かつてない"	<is #k "初"> 
		 | "かつて"	<is #k "過去"> 
		 | "かつ"	<is #k "順接,並立"> 
		 | "およびに"	<is #k "順接,並立"> 
		 | "および"	<is #k "順接,並立"> 
		 | "おそらく"	<is #k "推測"> 
		 | "あるいは"	<is #k "順接,選択"> 
		 | "あのまま"	<is #k "状況"> 
		 | "あの"	<is #k "連体詞"> 
		 | "あと"	<is #k "追加"> 
		)
				<GETTOKEN #s>
		[
		    ","
		  | "、"
		  | "，"
		  | <SPACE>
		]
				<print #k #s>
		;

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

	(
		  "等を"	<is #k "例示,目的"> 
		| "等の"	<is #k "例示,所属"> 
		| "等にも"	<is #k "例示"> 
		| "等"		<is #k "例示"> 
		| "をして"	<is #k "対象,動作"> 
		| "を"		<is #k "対象"> 
		| "れ"		<is #k "動作"> 
		| "よりも"	<is #k "比較"> 
		| "より"	<is #k "開始点"> 
		| "ようにも"	<is #k "困難"> 
		| "ように"	<is #k "同様"> 
		| "や"		<is #k "並び"> 
		| "ものは"	<is #k "動作主"> 
		| "も"		<is #k "追加"> 
		| "までに"	<is #k "到達点"> 
		| "まで"	<is #k "到達点"> 
		| "ますが"	<is #k "逆接"> 
		| "まして"	<is #k "順接"> 
		| "ましたが"	<is #k "逆接"> 
		| "への"	<is #k "到達点"> 
		| "へ"		<is #k "到達点"> 
		| "は"		<is #k "動作主"> 
		| "のも"	<is #k "追加">
		| "のみが"	<is #k "限定">
		| "のみ"	<is #k "限定">
		| "のは"	<is #k "動作主">
		| "のために"	<is #k "理由"> 
		| "のため"	<is #k "理由"> 
		| "のとおり"	<is #k "説明"> 
		| "のことと"	<is #k "説明"> 
		| "の"		<is #k "所属"> 
		| "によれば"	<is #k "理由"> 
		| "によると"	<is #k "理由"> 
		| "による"	<is #k "理由"> 
		| "により"	<is #k "理由"> 
		| "によって"	<is #k "理由"> 
		| "にも"	<is #k "追加"> 
		| "には"	<is #k "限定"> 
		| "についても"	<is #k "理由"> 
		| "について"	<is #k "理由"> 
		| "に"		<is #k "目標"> 
		| "なら"	<is #k "条件"> 
		| "なので"	<is #k "理由"> 
		| "なのだ"	<is #k "理由"> 
		| "などを"	<is #k "例示,目的"> 
		| "などのための" <is #k "例示,理由"> 
		| "などの"	<is #k "例示,所属"> 
		| "などにも"	<is #k "例示"> 
		| "など"	<is #k "例示"> 
		| "ないが"	<is #k "逆接"> 
		| "な"		<is #k "状態"> 
		| "とも"	<is #k "追加"> 
		| "との"	<is #k "所属"> 
		| "とは"	<is #k "動作主"> 
		| "となる"	<is #k "状態"> 
		| "となり"	<is #k "状態"> 
		| "となっているとのこと"<is #k "状態"> 
		| "となっているとの"<is #k "状態"> 
		| "となっている"<is #k "状態"> 
		| "となって"	<is #k "状態"> 
		| "とする"	<is #k "立場"> 
		| "としては"	<is #k "立場"> 
		| "として"	<is #k "立場"> 
		| "とした"	<is #k "立場"> 
		| "とき"	<is #k "条件"> 
		| "ということですので"	<is #k "立場"> 
		| "ということです"	<is #k "立場"> 
		| "ということ"	<is #k "立場"> 
		| "という"	<is #k "立場"> 
		| "と"		<is #k "追加"> 
		| "でも"	<is #k "追加">
		| "ではなく"	<is #k "否定">
		| "では"	<is #k "限定">
		| "での"	<is #k "限定">
		| "ですが"	<is #k "逆接">
		| "でしたが"	<is #k "逆接">
		| "できるようにも"<is #k "条件">
		| "できるように"<is #k "条件">
		| "できるよう"	<is #k "条件">
		| "できると"	<is #k "動作">
		| "できる"	<is #k "動作">
		| "でき"	<is #k "動作">
		| "であり"	<is #k "説明">
		| "で"		<NOTNEXTSTR "す"><is #k "説明">
		| "ても"	<is #k "逆接"> 
		| "だけではなく" <is #k "追加">
		| "だけでなく"	<is #k "追加">
		| "だが"	<is #k "逆接">
		| "たら"	<is #k "動作"> 
		| "ため"	<is #k "理由"> 
		| "せ"		<is #k "動作"> 
		| "すれば"	<is #k "条件"> 
		| "することに"	<is #k "動作"> 
		| "するが"	<is #k "逆接"> 
		| "しよう"	<is #k "動作"> 
		| "しても"	<is #k "理由"> 
		| "しており"	<is #k "動作"> 
		| "している"	<is #k "動作"> 
		| "していた"	<is #k "動作"> 
		| "していくという"　<is #k "動作"> 
		| "していく"	<is #k "動作"> 
		| "して"	<is #k "理由"> 
		| "したら"	<is #k "動作"> 
		| "したように"	<is #k "動作"> 
		| "したのに"	<is #k "動作"> 
		| "したので"	<is #k "動作"> 
		| "したが"	<is #k "逆接"> 
		| "した"	<is #k "動作"> 
		| "されては"	<is #k "動作"> 
		| "されて"	<is #k "動作"> 
		| "された"	<is #k "動作"> 
		| "ことも"	<is #k "追加"> 
		| "ことは"	<is #k "対象"> 
		| "いるが"	<is #k "逆説">
		| "があり"	<is #k "説明">
		| "が"		<is #k "動作主">
		| "からの"	<is #k "開始点"> 
		| "から"	<is #k "開始点"> 
		| "おり"	<is #k "動作"> 
		| "および"	<is #k "追加"> 
		| "る"		<NOTNEXTSTR "と"><is #k "動作"> 
		| "め"		<NOTNEXTSTR "る"><is #k "動作"> 
		| "ね"		<is #k "動作"> 
		| "て"		<is #k "動作"> 
		| "け"		<is #k "動作">
		| "え"		<is #k "動作"> 
		| "?"		<is #k "疑問"> 
		| "？"		<is #k "疑問"> 
		| "!"		<is #k "驚愕"> 
		| "！"		<is #k "驚愕"> 
		| <NEXTSTR ",">	<is #k "区切り"> 
		| <NEXTSTR "、"> <is #k "区切り"> 
		| <NEXTSTR "，"> <is #k "区切り"> 
		| <NEXTSTR "("> <is #k "区切り"> 
	  	| <NEXTSTR "（"> <is #k "区切り"> 
		| <NEXTSTR "「"> <is #k "区切り"> 
		| <NEXTSTR "『"> <is #k "区切り"> 
		| <NEXTSTR "["> <is #k "区切り"> 
		| <NEXTSTR "{"> <is #k "区切り"> 
		| <NEXTSTR ")"> <is #k "区切り"> 
		| <NEXTSTR "）">  <is #k "区切り"> 
		| <NEXTSTR "」"> <is #k "区切り"> 
		| <NEXTSTR "』"> <is #k "区切り"> 
		| <NEXTSTR "]"> <is #k "区切り"> 
		| <NEXTSTR "}"> <is #k "区切り"> 
		| <NEXTSTR '"'> <is #k "区切り"> 
		| <NEXTSTR "'"> <is #k "区切り"> 
		| <NEXTSTR "”"> <is #k "区切り"> 
		| <NEXTSTR "“"> <is #k "区切り"> 
	)
		
		<NOTNEXTSTR "。">
		<NOTNEXTSTR ".">

 		<GETTOKEN #g>
	(
		  <eq #g "を"> [ "," | "、" | "，"]
		| ","
		| "、"
		| "，"
		| <SPACE>
		| (
		    ::sys <rightstr #rc #x 1>
		    <NEXTCHAR #lc>  
		   (
			(  ::sys <syntax #rc <NONRANGE _ "あ" "ん">>
		    	 | ::sys <syntax #lc <NONRANGE _ "あ" "ん">>
			)
		   )		  
		   <noteq #lc "ぁ">
		   <noteq #lc "ぃ">
		   <noteq #lc "ぅ">
		   <noteq #lc "ぇ">
		   <noteq #lc "ぉ">
		   //<noteq #lc "っ">
		   <noteq #lc "ゃ">
		   <noteq #lc "ゅ">
		   <noteq #lc "ょ">

		   <noteq #rc "な">
		   <noteq #rc "で">
		 )
	)


	<print #k #x #g>
	;


	
<述語 #y #t>
	<* #y>
	(
	   "わ"
	 | "る"
	 | "らしかった"
	 | "らしい"
	 | "ようだった"
	 | "ようだ"
	 | "よ"
	 | "ゆ"
	 | "む"
	 | "ます"
	 | "ました"
	 | "まい"
	 | "ほしかった"
	 | "ほしい"
	 | "ふ"
	 | "の"
	 | "ね"
	 | "ぬ"
	 | "なる"
	 | "なった"
	 | "なかっただろう"
	 | "なかった"
	 | "なかった"
	 | "ないだろう"
	 | "ない"
	 | "ない"
	 | "な"
	 | "です"
	 | "でした"
	 | "できる"
	 | "できない"
	 | "である"
	 | "であった"
	 | "てみる"
	 | "てみた"
	 | "てある"
	 | "てあった"
	 | "つ"
	 | "だろう"
	 | "だった"
	 | "だ"
	 | "たかった"
	 | "たい"
	 | "た"
	 | "ぞ"
	 | "そうだった"
	 | "そうだ"
	 | "する"
	 | "す"
	 | "した"
	 | "される"
	 | "された"
	 | "さ"
	 | "ける"
	 | "けた"
	 | "ください"
	 | "く"
	 | "からだ"
	 | "か"
	 | "う"
	 | "いる"
	 | "いました"
	 | "いた"
	 | "い"
	 | "ある"
	 | "あった"
	 | "?"
	 | "？"
	 | "."
	 | "。"
	 | "..."
	 | "……"
	 | "…"
	 | <SPACE>
	 | <CR>
	)
		<GETTOKEN #t>
	(
		  "?"
		| "？"
		| "."
		| "。"
		| "..."
		| "……"
		| "…"
		| <SPACE>
		| <CR>
		| <EOF>
	)			<print "述語" #y #t><print>
	;

<括弧 #p>
	(
	    "("
	  | "（"
	  | "「"
	  | "『"
	  | "["
	  | "{"
	  | "'"
	  | '"'
	  | "”"
	  | "“"
	)
	<GETTOKEN #g>
	<print "括弧" #g>
	;

<文>
	{
		(
		 <括弧 #p>
		|
		 <その他 #s>
		|
		 <格 #k #x>
		)
	}
	<述語 #y #t>
	;

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


