/*
 * 会話キャラクター
 * 	ミカちゃんプログラム V2.0
 *			2010-2011 (C) Copyright H.Niwa
 *
 */

? <include list>;
? <include generator>;
? <include ktaiso>;

// 置き換え
<Replace () ()>;
<Replace (あなた :#b2) (私 :#b1)>	<Replace #b2 #b1>;
<Replace (あなた :#b2) (わたし :#b1)>	<Replace #b2 #b1>;
<Replace (あなた :#b2) (あたし :#b1)>	<Replace #b2 #b1>;
<Replace (あなた :#b2) (俺 :#b1)>	<Replace #b2 #b1>;
<Replace (あなた :#b2) (おれ :#b1)>	<Replace #b2 #b1>;
<Replace (あなた :#b2) (オレ :#b1)>	<Replace #b2 #b1>;
<Replace (私 :#b2) (あなた :#b1)>	<Replace #b2 #b1>;
<Replace (私 :#b2) (アナタ :#b1)>	<Replace #b2 #b1>;
<Replace (私 :#b2) (おまえ :#b1)>	<Replace #b2 #b1>;
<Replace (私 :#b2) (オマエ :#b1)>	<Replace #b2 #b1>;
<Replace (私 :#b2) (お前 :#b1)>		<Replace #b2 #b1>;
<Replace (私 :#b2) (きさま :#b1)>	<Replace #b2 #b1>;
<Replace (私 :#b2) (キサマ :#b1)>	<Replace #b2 #b1>;
<Replace (私 :#b2) (貴方 :#b1)>		<Replace #b2 #b1>;
<Replace (私 :#b2) (貴女 :#b1)>		<Replace #b2 #b1>;
<Replace (私 :#b2) (おぬし :#b1)>	<Replace #b2 #b1>;
<Replace (私 :#b2) (お主 :#b1)>		<Replace #b2 #b1>;
<Replace (#f : #b2) (#f : #b1)>		<Replace #b2 #b1>;


// メイン処理
<Eliza #reply #x>
	::sys <strdelcntl #x1 #x> 
	::sys <split #x2 #x1 "。？?">
//	[<noteq #x2 ()> <print>]
	<foreach #rep (#x3 #x2)
	    <nop #r>
	    (
	      ::sys <strlen #slen #x3>
	      <compare #slen <= 1>
	      <is #r ()>
	     |
	      ::sys <syntax #x3
		(
		  ::ktaiso <文 #a #b>
		  <Replace #a2 #a>
		  <is #n (#a2 #b)>
		|
		  <is #n (#x2)>
		)
		::sys <flatten #list #n>
		<#cn = ::sys <random _> % 2 + 1>
		<cloop #r #list #cn ()>
		<print>
	     >
	    )
	>
	::sys <flatten #rep2 #rep>
	::sys <concat #reply #rep2>
	;


<cloop () _ 0 _>;
<cloop () () _ _>;
<cloop (#s:#s1) #list #n #mem>
	<c #list2 #list>
	::sys <flatten #list3 (#list2)>
	::sys <concat #s #list3>
	(::list <member #s #mem>
	 |
	 <print "★ミカちゃん: " #s>
	)
	::sys <append #mem2 #mem (#s)>
	<#n1 = #n - 1>
	<cloop #s1 ::sys <cdr _ #list> #n1 #mem2>
	;

// select one at random
<comb #r #l>
	::generator <permutation #r1 #l 1>
	::sys <car #r #r1>
	;

// data operation
<d #o #list>
	<comb #o #list>
	;

// Keyword and conversation data	
<c #o (#h _ :#l)>
	(<is #h "("> | <is #h "["> | <is #h "（"> | <is #h "【">
		| <is #h "{"> | <is #h "〔"> | <is #h "｛"> 
		| <is #h "「"> | <is #h "『">
	 <is #h ")"> | <is #h "]"> | <is #h "）"> | <is #h "】">
		| <is #h "}"> | <is #h "〕"> | <is #h "｝"> 
		| <is #h "」"> | <is #h "』">)
	<c #o #l>
	;

<c #o (ニュース :#l)>
	<setnewsflag on>
	<d #o (
		(ニュースをどうぞ)
		(ニュースをお楽しみください)
		(ニュースはこれでいいんじゃないか？)
		(これがニュースじゃないか)
		)>
	;

<c #o (ミカちゃん :#l)>
	<d #o (
		(ミカちゃんは、海からの侵略者じゃないか)
		(このミカちゃんは、デカルト言語で書かれているじゃないか)
		(ミカちゃんを作ったデカルト言語は、並列ロジックプログラミング言語)
		(ミカちゃんは、おぬしの問題を解決するじゃないか。)
		(ミカちゃんは、おまえの問題を解決するじゃないか。)
		(ところでデカルト言語を知っているか？)
		(ミカちゃんは、海からの侵略者じゃないのじゃないか)
		(ミカちゃんが怖くはないか？)
		)>
	;
<c #o (#h :#l)>
	(<is #h こんにちは> | <is #h こんちは> | <is #h こんにち> 
		| <is #h ハロー>)
	<d #o (
		(こんにちはじゃないか)
		(こんにちは)
		(こんにちは)
		)>
	;
<c #o (#h :#l)>
	(<is #h こんばんは>)
	<d #o (
		(こんばんはじゃないか)
		(こんばんは)
		(こんばんは)
		)>
	;
<c #o (#h :#l)>
	(<is #h あは> | <is #h あはよ> | <is #h あはよう> | <is #h "おはよー"> 
		| <is #h おはようござい> | <is #h おはようございます> | <is #h オハヨ> | <is #h "オハヨー"> )
	<d #o (
		(おはようじゃないか)
		(おはよう)
		(おはようございます)
		(おはよう)
		)>
	;

<c #o (#h ない)>
	<d #o (
		(違うということはない)
		(ないということはないじゃないか)
		(ないことはないじゃないか)
		(そう)
		(そう...)
		(そういうことはない)
		(わたしには、関係ない)
		(わかる)
		(わからないじゃないか)
		(#h なら...)
		(それは、#h )
		(本当...)
		(おぬしは、#h ないことはないじゃないか)
		(おまえは、#h ないことはないじゃないか)
		(おぬしは、#h ない)
		(おまえは、#h ない)
		(わたしは、#h ないじゃないか)
		)>
	;
<c #o (でき :#l)>
	<d #o  (
		(できたじゃないか)
		(できることは、わかっていた。)
		(それは、良いこと。)
		(そう)
		(そう...)
		(そう...よかった)
		(それが望み？)
		(わかっていた。)
		(なんとか...)
		(わたしに任せて。)
		)>
	;
<c #o (おまえ は :#l)>
	<d #o (
		(おぬしは、#l )
		(おまえは、#l )
		(#l  、それで良かった？)
		(#l  、それで良かった。)
		(#l 、それでどうなった？)
		(わたしがなんとかしようじゃないか。)
		(なんとかする。)
		(それについてどう思う？)
		(#l 、どう思う？)
		(私も同じ。)
		(おぬしも同じ。)
		(おまえも同じ。)
		(それが、 #l)
		(大丈夫、 #l ならなんとかなる。)
		)>
	;
<c #o (私 は :#l)>
	<d #o (
		(私はミカちゃん、おぬしのためにここに居るんじゃないか)
		(私はミカちゃん、おまえのためにここに居るんじゃないか)
		(私は、ミカちゃん)
		(#l 、どう思う？)
		(そう、私はミカちゃん)
		(わからないじゃないか)
		(#l  、それで良かった？)
		(#l  、それで良かった。)
		(#l 、それでどうなった？)
		(#l だからといって諦める必要ない。わたしがなんとかしようじゃないか。)
		(おぬしと同じじゃないか)
		(おまえと同じじゃないか)
		(大丈夫、 #l ならなんとかなる。)
		(おぬしは、どう？)
		(おまえは、どう？)
		)>
	;
<c #o (夢 :#l)>
	<d #o (
		(夢は大事)
		(きっと、なんとかなる)
		(夢があれば、希望がある)
		(夢はかなえるもの)
		)>
	;
<c #o (イカ :#l)>
	<d #o (
		(イカでいいじゃなイカ)
		(イカでよかったでゲソ)
		(イカならなんとかなるじゃなイカ)
		(イカ同文)
		(イカをどう思うか)
		(わたしはミカちゃん、おぬしのためにここに居るんじゃなイカ)
		(さては、おぬしもイカだな)
		(さては、おまえもイカだな)
		(イカは海で最もすぐれた生き物じゃなイカ)
		)>
	;
<c #o (エビ :#l)>
	<d #o (
		(伊勢エビがたべたい)
		(伊勢エビを要求する)
		(伊勢エビが好き！)
		(どこに伊勢エビがある)
		(伊勢エビがあるじゃないか)
		(伊勢エビ、伊勢エビ...)
		)>
	;
<month #m #mt>
	::sys <switch #mt 
		Jan <eq #m "1月">
		Feb <eq #m "2月">
		Mar <eq #m "3月">
		Apr <eq #m "4月">
		May <eq #m "5月">
		Jun <eq #m "6月">
		Jul <eq #m "7月">
		Aug <eq #m "8月">
		Sep <eq #m "9月">
		Oct <eq #m "10月">
		Nov <eq #m "11月">
		Dec <eq #m "12月">
	>
	;
<datep #o>
	::sys <date #x> ::sys<split #y #x> 
	::sys <cadr #mt #y> <month #m #mt>
	::sys <caddr #d #y>
	<d #o (
		(#m #d 日)
		(今日は #m #d 日)
		(#d 日)
		(#m の #d 日)
		(今日は #m の #d 日)
		)>
	;
<c #o (何日 :#l)>
	<datep #o>
	;
<c #o (今日何日 :#l)>
	<datep #o>
	;
<c #o (何月何日 :#l)>
	<datep #o>
	;
<c #o (何日です :#l)>
	<datep #o>
	;
<c #o (今日何日です :#l)>
	<datep #o>
	;
<c #o (何月何日です :#l)>
	<datep #o>
	;
<c #o (今日何月何日です :#l)>
	<datep #o>
	;
<timep #o>
	::sys <date #x> ::sys<split #y #x> ::sys <cadddr #t #y>
	::sys <split #tl #t ":">
	::sys <car #t1 #tl>
	::sys <cadr #t2 #tl>
	::sys <caddr #t3 #tl>
	<d #o (
		(#t1 時 じゃないか)
		(#t1 時 #t2 分 じゃないか)
		(#t1 時 #t2 分 #t3 秒 じゃないか)
		(#t1 )
		(#t1 時 #t2 分)
		(今は #t1 時 #t2 分 じゃないか)
		(まだ #t1 時 じゃないか)
		(まだ #t1 時 #t2 分)
		(もう #t1 時)
		(もう #t1 時 #t2 分 じゃないか)
		)>
	;
<c #o (何時 :#l)>
	<timep #o>
	;
<c #o (今何時 :#l)>
	<timep #o>
	;
<c #o (何時です :#l)>
	<timep #o>
	;
<c #o (時間 :#l)>
	<timep #o>
	;
<c #o (時 :#l)>
	<timep #o>
	;
<c #o (タイム :#l)>
	<timep #o>
	;

<haniwo #o #h1 #h2 #h3 #l>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<d #o (
		(#h2 が #h1 じゃないか)
		(#h2 が #h1 の狙いじゃないか)
		(#h3 がなければ #h1 は大変じゃないか)
		(#h3 は #h1 に利用されているだけ)
		(#h2 は #h1 に #h3 を返すことはあるのか？)
		(#h2 に #h1 は #h3 をするか？)
		)>
	;
<c #o (#h1 は #h2 に #h3 を :#l)>
	<haniwo #o #h1 #h2 #h3 #l>
	;
<c #o (#h2 に #h1 は #h3 を :#l)>
	<haniwo #o #h1 #h2 #h3 #l>
	;
<c #o (#h2 に #h3 を #h1 は :#l)>
	<haniwo #o #h1 #h2 #h3 #l>
	;
<c #o (#h3 を #h2 に #h1 は :#l)>
	<haniwo #o #h1 #h2 #h3 #l>
	;
<c #o (#h3 を #h1 は #h2 に :#l)>
	<haniwo #o #h1 #h2 #h3 #l>
	;
<c #o (#h は :#l)>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<d #o (
		(#h はどうなるの？)
		(それが #h )
		(#h についてどう思うか)
		(#h はどう？)
		(こうなると #h に期待)
		(おそらく、 #h のこと)
		(#h について話して欲しい)
		(#h なんて思わない)
		(でも、 #h は本当はこんなものじゃないじゃないか)
		(#l ということ)
		(#h の狙いは何？)
		(#h の問題は何？)
		(#h 、信して欲しい)
		(そう、 #h なん。)
		(#h じゃないじゃないか)
		(#h じゃない。信じて欲しい)
		(たぶん、おぬしは #h)
		(たぶん、おまえは #h)
		(たぶん、わたしは #h)
		(おぬしは、#h )
		(おまえは、#h )
		(すこし、#h について考えようじゃないか)
		(やはり、すべての原因は #h )
		(こうなることはわかっていたじゃないか。 #h が原因じゃないか)
		(すべては、こうなることはわかっていた。 #h が作用をした)
		(やはり、#h は重要)
		(やはり、#h は大切)
		(つまり、#h から始まった)
		(始まりは、#h からだった)
		(#h を参考にする)
		(#h が明らかになった)
		(そうなると #h を調べなければならないじゃないか)
		(#h は、進歩の要)
		(#h を実感した)
		(#h は面白い)
		(#h は愉快)
		(#h は楽しそう)
		(#h はどう？)
		(#h を侵略対象として決定した)
		(#h は決定的した)
		(#h はどうか)
		(#h が気になる)
		(#h に着目)
		(#h を実感したじゃないか)
		)>
	;
<c #o (#h が :#l)>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<d #o (
		(#h が今後はどうなるのか興味深いじゃないか)
		(#h が楽しみ)
		(#h が悪いんじゃないか)
		(#h ね)
		(#h に期待する)
		(すこし、#h について考える)
		(やはり、すべての原因は #h )
		(こうなることはわかっていたじゃないか。 #h が原因)
		(すべては、こうなることはわかっていた。 #h )
		(やはり、#h は重要じゃないか)
		(やはり、#h は大切なもの)
		(つまり、#h から始まった)
		(始まりは、#h からだった)
		(#h を参考にする)
		(#h が明らかになった)
		(そうなると #h を調べなければならないじゃないか)
		(#h は、飛躍しすぎ)
		(#h は、進歩の要)
		(#h を実感した)
		(#h は面白い)
		(#h は愉快)
		(#h は楽しそう)
		(#h はどう？)
		(#h を監視対象として決定した)
		(#h は決定的)
		(#h はどうか)
		(#h が気になる)
		(#h に着目)
		(#h 、信して欲しい)
		(#h 、そうじゃないか。)
		(#h なの。)
		(そう、 #h なんじゃないか。)
		(#h じゃない)
		(#h じゃない。信して欲しい)
		(たぶん、おぬしは #h)
		(たぶん、おまえは #h)
		(たぶん、わたしは #h)
		(おぬしは、#h )
		(おまえは、#h )
		(そう、#h )
		(#l ということ)
		(それは、 #h ということ)
		(それは、 #l ということ)
		(#l は、確実に侵略しているじゃないか)
		)>
	;
<c #o (#h に :#l)>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<d #o (
		(#h はどうなん)
		(#h にはどのような？)
		(#h に期待)
		(#h には期待してきた)
		(#h にはどうか？)
		(#h はわからない)
		(#h になったら、どうなる)
		(#h には興味ないじゃないか)
		(#h にはとても興味がある)
		(#h にはとても興味がある。詳しく)
		(#h には、あったとのこと)
		(#h にあった)
		(それは、 #h ね)
		(それは、 #h に適合した海からの侵略者)
		(#h は想定以上の力を感じる)
		(#h は想定範囲内じゃないか)
		(#h は想定範囲外じゃないか)
		(#h 、そう。)
		(#h なの。)
		(そう、 #h なのじゃないか。)
		(#h じゃないじゃないか)
		(たぶん、おぬしは #h)
		(たぶん、おまえは #h)
		(たぶん、わたしは #h)
		(おぬしは、#h )
		(おまえは、#h )
		(そう、#h )
		(#h には、こだわりを感じる)
		(なるほど、 #l ということ)
		(なるほど、 #l は、確実に侵略しているじゃないか)
		(それは、 #h ということ)
		(それは、 #l ということ)
		(#l は、確実に侵略しているじゃないか)
		(#l は、どうなるかわからない)
		)>
	;
<c #o (#h を :#l)>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<d #o (
		(#h は良いことじゃないか)
		(#h は大切)
		(#h は課題)
		(#h が今後はどうなる)
		(#h が楽しみじゃないか)
		(#h が悪いじゃないか)
		(すこし、#h について考える)
		(やはり、すべての原因は #h )
		(こうなることはわかっていた。 #h が原因)
		(すべては、こうなることはわかっていた。 #h が作用をした)
		(やはり、#h は重要)
		(やはり、#h は大切なもの)
		(つまり、#h から始まった)
		(始まりは、#h からだった)
		(#h を参考にするじゃないか)
		(#h が明らかになった)
		(そうなると #h を調べなければならないじゃないか)
		(#h は、飛躍しすぎ)
		(#h は、進歩の要)
		(#h を実感した)
		(#h は面白い)
		(#h は愉快)
		(#h は楽しそう)
		(#h はどう？)
		(#h を侵略対象として決定した)
		(#h は決定的)
		(#h はどうか)
		(#h は実現不可能)
		(#h は愉快じゃないか)
		(#h をどうすればよい？)
		(#h を答えて)
		(#h は確か...)
		(その #h は確か...)
		(#h 、信して欲しい)
		(#h じゃないじゃないか)
		(#h じゃない。信して欲しい)
		(たぶん、おぬしは #h)
		(たぶん、おまえは #h)
		(たぶん、わたしは #h)
		(おぬしは、#h )
		(おまえは、#h )
		(それは、 #h ということ)
		(それは、 #l ということ)
		(#l は、確実に侵略しているじゃないか)
		)>
	;
<c #o (#h1 の #h2 :#l)>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<noteq #h2 "「"><noteq #h2 "『"><noteq #h2 "("><noteq #h2 "（">
	<noteq #h2 "["><noteq #h2 "{"><noteq #h2 "［"><noteq #h2 "｛">
	<d #o (
		(#h1 の #h2 は、どんな)
		(#h1 の #h2 には、どんなゲソ？)
		(#h1 の #h2 が、重要なポイントじゃないか)
		(ポイントは #h1 の #h2 )
		(#h1 の #h2 について話して欲しい)
		(#h1 の #h2 は、大切じゃないか)
		(#h1 の #h2 注目)
		(#h1 の #h2 はどうなるの)
		(#h1 の #h2 に一致しないじゃないか。どういうこと)
		(それは、 #h1 の #h2 ということじゃないか)
		)>
	;
<c #o (#h から :#l)>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<d #o (
		(どこまで？)
		(#h は良いこと)
		(#h は大切)
		(#h は望ましいじゃないか)
		(#h は課題)
		(#h が今後はどうなるのか)
		(#h が楽しみ)
		(#h が悪いじゃないか)
		(#h ね)
		(すこし、#h について考えようじゃないか)
		(やはり、すべての原因は #h )
		(こうなることはわかっていた。)
		(すべては、こうなることはわかっていた。 #h )
		(やはり、#h は重要)
		(やはり、#h は大切なもの)
		(つまり、#h から始まった)
		(始まりは、#h からだった)
		(#h を参考にしようじゃないか)
		(#h が明らかになった)
		(そうなると #h を調べなければならないじゃないか)
		(#h は、侵略の要)
		(#h を実感した)
		(#h は面白い)
		(#h は愉快)
		(#h は楽しそう)
		(#h はどう？)
		(#h を侵略対象として決定した)
		(#h は決定的)
		(#h はどうか)
		(#h は実現不可能)
		(#h の見込みは？)
		(#h は愉快)
		(#h は確か...)
		(#h を待つ)
		(#h 、信して欲しい)
		(#h じゃない)
		(#h じゃない。信して欲しい)
		(たぶん、おぬしは #h)
		(たぶん、おまえは #h)
		(たぶん、わたしは #h)
		(おぬしは、#h )
		(おまえは、#h )
		(それが #l ね)
		(#h 、どう思うか)
		)>
	;
<c #o (たぶん :#l)>
	<d #o (
		(それについては、よく知らないじゃないか)
		(#l が、もう少し考える)
		(たしか？)
		(#l について、知っていることはあるか？)
		(それは、 #l ということ)
		(#l は、確実に侵略している)
		(#l は、どうなるかわからないじゃないか)
		)>
	;
<c #o (そうか)>
	<d #o (
		(そう)
		(そう？)
		(そう...)
		)>
	;
<c #o (#h か)>
	<d #o (
		(おぬしは #h)
		(おまえは #h)
		(おぬしは信じている)
		(おまえは信じている)
		(おぬしを信じているじゃないか)
		(おまえを信じているじゃないか)
		(わたしを信して欲しい)
		(信して欲しい)
		(#h 、信して欲しい)
		(#h じゃないじゃないか)
		(#h じゃない。信して欲しい)
		(たぶん、おぬしは #h)
		(たぶん、おまえは #h)
		(たぶん、わたしは #h)
		(おぬしは、#h )
		(おまえは、#h )
		(それが #h )
		(#h についてどう思うか)
		(#h はどう？)
		(おそらく、 #h のことじゃないか)
		(#h について話して欲しい)
		(一般的な #h )
		(#h なんて思わないじゃないか)
		(でも、 #h は本当はこんなものじゃないじゃないか)
		(#l ということ)
		(#h の狙いは何？)
		(#h の問題は何？)
		(#h 、信して欲しい)
		(#h じゃない)
		(#h じゃない。信して欲しい)
		(たぶん、おぬしは #h)
		(たぶん、おまえは #h)
		(たぶん、わたしは #h)
		(おぬしは、#h )
		(おまえは、#h )
		(やはり、すべての原因は #h )
		(こうなることはわかっていた。 #h が原因)
		(すべては、こうなることはわかっていた。 #h が作用をした)
		(やはり、#h は重要)
		(やはり、#h は大切なもの)
		(つまり、#h から始まった)
		(始まりは、#h からだった)
		(#h が明らかになった)
		(そうなると #h を調べなければならないじゃないか)
		(#h は、飛躍しすぎ)
		(#h は、進歩の要た)
		(#h を実感した)
		)>
	;
<c #o (#h ました)>
	<d #o (
		(そうなのじゃないか。)
		(そうじゃない)
		(おぬしは信じているじゃないか)
		(おまえは信じているじゃないか)
		(わたしを信して欲しい)
		(信して欲しい)
		(そう。)
		(そうなの)
		(そうじゃない)
		(そうじゃない。信して欲しい)
		(そんなわけがないじゃないか)
		(たぶん、おぬしは...)
		(たぶん、おまえは...)
		(たぶん、わたしは...)
		)>
	;
<c #o (#h です)>
	<d #o (
		(そう、 #h じゃないか)
		(#h じゃないか)
		(そう、 #h なの。)
		(#h じゃない)
		(おぬしは、 #h )
		(おまえは、 #h)
		(おぬしを信じているじゃないか)
		(おまえを信じているじゃないか)
		(わたしを信して欲しい)
		(信して欲しい)
		(#h 、信して欲しい)
		(#h じゃない)
		(#h じゃない。信して欲しい)
		(#h じゃないか、そうじゃないか。)
		(#h じゃないじゃないか)
		(#h なのじゃないか)
		(#h わけがない)
		(たぶん、おぬしは #h)
		(たぶん、おまえは #h)
		(たぶん、わたしは #h)
		(#h なのね)
		(それが #h じゃないか)
		(#h はどう？)
		(おそらく、 #h のことじゃないか)
		(#h について話して欲しい)
		(#h なんて思わないじゃないか)
		(でも、 #h は本当はこんなものじゃないじゃないか)
		(#l ということ)
		(#h は、本質)
		(#h の狙いは何？)
		(#h の問題は何？)
		(#h 、信して欲しい)
		(#h じゃない)
		(#h じゃない。信して欲しい)
		(たぶん、おぬしは #h)
		(たぶん、おまえは #h)
		(たぶん、わたしは #h)
		(おぬしは、#h )
		(おまえは、#h )
		(すこし、#h について考える)
		(やはり、すべての原因は #h )
		(こうなることはわかっていた。 #h が原因じゃないか)
		(すべては、こうなることはわかっていた。 #h )
		(やはり、#h は重要)
		(やはり、#h は大切なもの)
		(つまり、#h から始まった)
		(始まりは、#h からだった)
		(#h が明らかになった)
		(そうなると #h を調べなければならないじゃないか)
		(#h は、飛躍しすぎ)
		(#h は、侵略の要)
		)>
	;
<c #o (#h た)>
	<d #o (
		(#h じゃない)
		(おぬしは #h)
		(おまえは #h)
		(おぬしは信じているじゃないか)
		(おまえを信じているじゃないか)
		(わたしを信して欲しい)
		(信して欲しい)
		(#h 、信して欲しい)
		(#h じゃない)
		(#h じゃない。信して欲しい)
		(おぬしは、 #h )
		(おまえは、 #h )
		(#h じゃないじゃないか)
		(#h わけがない)
		(たぶん、おぬしは #h)
		(たぶん、おまえは #h)
		(たぶん、わたしは #h)
		(#h だ)
		(#h じゃないか)
		(それが #h )
		(#h についてどう思うか)
		(#h はどう？)
		(こうなると #h に期待しようじゃないか)
		(おそらく、 #h のこと)
		(#h について話して欲しい)
		(#h なんて思わないじゃないか)
		(でも、 #h は本当はこんなものじゃないじゃないか)
		(#h の狙いは何？)
		(#h の問題は何？)
		(#h 、信して欲しい)
		(#h じゃない)
		(#h じゃない。信して欲しい)
		(たぶん、おぬしは #h)
		(たぶん、おまえは #h)
		(たぶん、わたしは #h)
		(おぬしは、#h )
		(おまえは、#h )
		(すこし、#h について考える)
		(やはり、すべての原因は #h )
		(こうなることはわかっていた。 #h が原因)
		(すべては、こうなることはわかっていた。 #h が作用をした)
		(やはり、#h は重要)
		(やはり、#h は大切なもの)
		(つまり、#h から始まった)
		(始まりは、#h からだった)
		(#h が明らかになった)
		(そうなると #h を調べなければならないじゃないか)
		(#h は、飛躍しすぎ)
		(#h は、侵略の要)
		(#h を実感した)
		)>
	;
<c #o (#h だった)>
	<d #o (
		(そう、 #h なの。)
		(#h じゃない)
		(おぬしは #h)
		(おまえは #h)
		(#h 、そうじゃないか)
		(#h なのんじゃないか)
		(そう、 #h なの。)
		(#h じゃない)
		(#h じゃない。信して欲しい)
		(おぬしは、#h )
		(おまえは、#h )
		(そう、#h )
		(#h じゃないじゃないか)
		(#h なの)
		(#h わけがない)
		(そう、#h )
		(#h じゃないじゃないか)
		(#h なの)
		(#h わけがないじゃないか)
		(たぶん、おぬしは #h)
		(たぶん、おまえは #h)
		(たぶん、わたしは #h)
		(それが #h )
		(#h についてどう思うか)
		(#h はどう？)
		(こうなると #h に期待)
		(おそらく、 #h のこと)
		(#h について話して欲しい)
		(#h なんて思わない)
		(でも、 #h は本当はこんなものじゃないじゃないか)
		(#h の狙いは何？)
		(#h の問題は何？)
		(#h 、信して欲しい)
		(#h じゃないじゃないか)
		(#h じゃない。信して欲しい)
		(たぶん、おぬしは #h)
		(たぶん、おまえは #h)
		(たぶん、わたしは #h)
		(おぬしは、#h )
		(おまえは、#h )
		(すこし、#h について考える)
		(やはり、すべての原因は #h )
		(こうなることはわかっていた。 #h が原因)
		(すべては、こうなることはわかっていた。 #h が作用をした)
		(やはり、#h は重要)
		(やはり、#h は大切なもの)
		(つまり、#h から始まった)
		(始まりは、#h からだった)
		(#h が明らかになった)
		(そうなると #h を調べなければならないじゃないか)
		(#h は、飛躍しすぎ)
		(#h を実感した)
		)>
	;
<c #o ()>
	<d #o (
		("待ってたじゃないか")
		("平気...じゃないか")
		("ちがうじゃないか")
		("わかったじゃないか")
		("理解した")
		("面白い")
		("おかしいじゃないか")
		("ははははは")
		("参考になったじゃないか")
		("おぬしがそれでいいならかまわないじゃないか")
		("おまえがそれでいいならかまわないじゃないか")
		("気にしない")
		("良いじゃないか")
		("事情は聞いた")
		("どうしたの")
		("やめないか")
		("食べていイカ")
		("私がイカに天才か教えてあげようじゃないか")
		("ちょっと待たないか")
		("何か違わないか")
		("そんなの口実に決まってるじゃないか")
		("だんじて満足するめイカ")
		("もう一度やってくれないか")
		("お疲れじゃないか")
		("言ってくれるじゃないか")
		("今なんかいったか？")
		("おぬしは、しもべじゃないか")
		("おまえは、しもべじゃないか")
		("おまえは、わたしのしもべ")
		("これじゃないか")
		("侵略しないか?")
		("おもしろい人じゃないか")
		("三つ指突いてお願いしますと言わないか")
		("……じゃないか")
		("そう")
		("お……恐ろしい…")
		("狙われないか？")
		("侵略しないか？")
		("いや！")
		("いや！いや！")
		("満足するめ")
		("おかしいんじゃないか？")
		("侵略してやる！")
		("いい度胸じゃないか")
		("いい人じゃないか")
		("いかんの")
		("教えてあげようではないか")
		("イカ墨を吐いただけじゃないか")
		("非科学的じゃないか")
		("これでいいじゃないか")
		("きわめて遺憾")
		("そうじゃないか")
		("けっこうじゃないか")
		("みんな、バカじゃないか？")
		("理不尽")
		("だいじょうぶ")
		("それじゃないか")
		("･･････")
		("そうじゃないか")
		("ここ")
		(イカは海で最もすぐれた生き物じゃないか)
		("理由がある")
		("もちろん、いい")
		("……")
		("わははははははははははは")
		("...")
		("わたしは海からの侵略者")
		("伊勢エビが食べたい")
		("伊勢エビが好き")
		("伊勢エビのことを考えると...")
		("それは、わたしのことじゃないか")
		("ナナトは暗い")
		("ナナト、元気そうじゃないか")
		("ナナトは私のことが怖くはないのか")
		("ナナトは静かじゃないか")
		("結構いうじゃないか、ナナト")
		("ナナトには世話になってる")
		("ナナトは面白いじゃないか")
		("ナナトは変")
		("わたしとナナトの仲じゃないか")
		("ナナト、わたしの仲間になって")
		)>
	;
<c #o (#l1 : #l2)>
	<c #o #l2>
	;
	

? <Eliza>;
