/*
 * bLN^[
 * 	iig@vO V2.0
 *			2010-2011 (C) Copyright H.Niwa
 *
 */

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

// u
<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) (I :#b1)>	<Replace #b2 #b1>;
<Replace ( :#b2) (Ȃ :#b1)>	<Replace #b2 #b1>;
<Replace ( :#b2) (Ai^ :#b1)>	<Replace #b2 #b1>;
<Replace ( :#b2) (܂ :#b1)>	<Replace #b2 #b1>;
<Replace ( :#b2) (I}G :#b1)>	<Replace #b2 #b1>;
<Replace ( :#b2) (O :#b1)>		<Replace #b2 #b1>;
<Replace ( :#b2) ( :#b1)>	<Replace #b2 #b1>;
<Replace ( :#b2) (LT} :#b1)>	<Replace #b2 #b1>;
<Replace ( :#b2) (M :#b1)>		<Replace #b2 #b1>;
<Replace ( :#b2) (M :#b1)>		<Replace #b2 #b1>;
<Replace (#f : #b2) (#f : #b1)>		<Replace #b2 #b1>;


// C
<Eliza #reply #x>
	::sys <strdelcntl #x1 #x> 
	::sys <split #x2 #x1 "BH?">
//	[<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 "iig: " #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 "i"> | <is #h "y">
		| <is #h "{"> | <is #h "k"> | <is #h "o"> 
		| <is #h "u"> | <is #h "w">
	 <is #h ")"> | <is #h "]"> | <is #h "j"> | <is #h "z">
		| <is #h "}"> | <is #h "l"> | <is #h "p"> 
		| <is #h "v"> | <is #h "x">)
	<c #o #l>
	;
<c #o (#h :#l)>
	(<is #h ɂ> | <is #h 񂿂> | <is #h ɂ> 
		| <is #h n[>)
	<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 In> | <is #h "In["> )
	<d #o (
		(͂悤...)
		)>
	;

<c #o (j[X :#l)>
	<setnewsflag on>
	<d #o (
		(j[Xǂ)
		(j[Xy݂)
		(j[X͂łH)
		(j[X͐)
		(ꂪj[X)
		)>
	;

<c #o (iig :#l)>
	<d #o (
		(킽̓iigAȂ̂߂ɂɋ)
		(킽́Aiig)
		(iiǵAq[}mCh^[)
		(iiǵAAI)
		(̃iiǵAfJgŏĂ)
		(iigfJǵA񃍃WbNvO~O)
		(iiǵAȂ̖B)
		(ƂŃfJgmĂ邩H)
		(iig|͂ȂH)
		)>
	;
<c #o (#h Ȃ)>
	<d #o (
		(ႤƂƂ͂Ȃ)
		(ȂƂƂ͂Ȃ)
		(ȂƂ͂Ȃ)
		()
		(...)
		(Ƃ͂Ȃ)
		(킽ɂ́A֌WȂ)
		(킩)
		(킩Ȃ)
		(#h Ȃ...)
		(́A#h )
		(#h ȂƂAꂪvÔ̍lB)
		(#hAꂪvÔ̍lB)
		({...)
		(Ȃ́A#h ȂƂ͂Ȃ)
		(Ȃ́A#h Ȃ)
		(킽́A#h Ȃ)
		)>
	;
<c #o (ł :#l)>
	<d #o  (
		(ł̂)
		(ł邱Ƃ́A킩ĂB)
		(́AǂƁB)
		()
		(...)
		(...悩)
		(ꂪ]݁H)
		(͏߂猈߂ĂB)
		(킩ĂB)
		(ȂƂ...)
		(ȂƂB킽ɔCāB)
		)>
	;
<c #o (Ȃ  :#l)>
	<d #o (
		(Ȃ́A#l )
		(#l  AŗǂH)
		(#l  AŗǂB)
		(#l AłǂȂ́H)
		(#l Ȃ̂ˁB)
		(#l ƂĒ߂KvȂB킽ȂƂB)
		(킽ȂƂB)
		(ȂƂB)
		(ɂĂǂvH)
		(#l AǂvH)
		(B)
		(ȂB)
		(ꂪA #l)
		(F̌A #l)
		(vA #l ȂȂƂȂB)
		)>
	;
<c #o ( :#l)>
	<d #o (
		(#l AǂvH)
		(A̓iig)
		(킩Ȃ)
		(#l  AŗǂH)
		(#l  AŗǂB)
		(#l AłǂȂ́H)
		(#l Ȃ̂ˁB)
		(#l ƂĒ߂KvȂB킽ȂƂB)
		(ȂƓ)
		(vA #l ȂȂƂȂB)
		(Ȃ́AǂH)
		)>
	;
<c #o ( :#l)>
	<d #o (
		(͑厖)
		(ƁAȂƂȂ)
		(΁A])
		(͂Ȃ)
		)>
	;
<c #o (] :#l)>
	<d #o (
		(]͑厖)
		(ƁAȂƂȂB)
		(Ȃ̂]B)
		)>
	;
<c #o (J :#l)>
	<d #o (
		(JĂ̂Ƃ)
		(]āB)
		(ƁAȂƂȂ)
		(΁A])
		(̂ȂƂȂ)
		)>
	;
<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 b)
		(#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 (^C :#l)>
	<timep #o>
	;

<haniwo #o #h1 #h2 #h3 #l>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<d #o (
		(#h2  #h1 ̖ړI)
		(#h2  #h1 ̑_)
		(#h3 Ȃ #h1 ͑)
		(#h3  #h1 ɗpĂ邾)
		(#h2  #h1  #h3 ԂƂ͂́H)
		(#h2  #h1  #h3 H)
		)>
	;
<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 ɂĂǂv)
		(#h ͂ǂH)
		(Ȃ #h Ɋ)
		(炭A #h ̂)
		(#h ɂĘb)
		(ʓI #h )
		(#h ȂĎvȂ)
		(łA #h ͖{͂Ȃ̂Ȃ)
		(#l Ƃ)
		(#h ́A{)
		(#h ̑_͉H)
		(#h ̖͉H)
		(#h AM)
		(#h AB)
		(#h Ȃ́B)
		(A #h Ȃ́B)
		(#h Ȃ)
		(#h ȂBM)
		(#h ͘_Ił͂Ȃ)
		(ԂAȂ #h)
		(ԂA킽 #h)
		(Ȃ́A#h )
		(A#h ɂčl)
		(͂AׂĂ̌ #h )
		(Ȃ邱Ƃ͂킩ĂB #h )
		(ׂẮAȂ邱Ƃ͂킩ĂB #h p)
		(͂A#h ͏dv)
		(͂A#h ͑؂Ȃ)
		(܂A#h n܂)
		(n܂́A#h 炾)
		(#h Qlɂ)
		(#h 炩ɂȂ)
		(Ȃ #h 𒲂ׂȂ΂ȂȂ)
		(#h ́A􂵂)
		(#h ́Ai̗v)
		(#h )
		(#h ͖ʔ)
		(#h ͖)
		(#h ͊y)
		(#h ͂ǂH)
		(#h ĎΏۂƂČ肵)
		(#h ͌I)
		(#h ͂ǂ)
		(#h CɂȂ)
		(#h ɒ)
		(A#h )
		(#h )
		)>
	;
<c #o (#h  :#l)>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<d #o (
		(#h ͂ǂȂ̂[)
		(#h y)
		(#h )
		(#h )
		(#h Ɋ҂đ҂)
		(A#h ɂčl)
		(͂AׂĂ̌ #h )
		(Ȃ邱Ƃ͂킩ĂB #h )
		(ׂẮAȂ邱Ƃ͂킩ĂB #h p)
		(͂A#h ͏dv)
		(͂A#h ͑؂Ȃ)
		(܂A#h n܂)
		(n܂́A#h 炾)
		(#h Qlɂ)
		(#h 炩ɂȂ)
		(Ȃ #h 𒲂ׂȂ΂ȂȂ)
		(#h ́A􂵂)
		(#h ́Ai̗v)
		(#h )
		(#h ͖ʔ)
		(#h ͖)
		(#h ͊y)
		(#h ͂ǂH)
		(#h ĎΏۂƂČ肵)
		(#h ͌I)
		(#h ͂ǂ)
		(#h CɂȂ)
		(#h ɒ)
		(#h AM)
		(#h AB)
		(#h Ȃ́B)
		(A #h Ȃ́B)
		(#h Ȃ)
		(#h ȂBM)
		(#h ͘_Ił͂Ȃ)
		(ԂAȂ #h)
		(ԂA킽 #h)
		(Ȃ́A#h )
		(A#h )
		(#l Ƃ)
		(́A #h Ƃ)
		(́A #l Ƃ)
		(#l ́AmɐiĂ)
		)>
	;
<c #o (#h  :#l)>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<d #o (
		(#h ͂ǂȂ)
		(#h ɂ͂ǂH)
		(#h ɂǂ̂悤)
		(#h Ɋ)
		(#h ɂ͊҂Ă)
		(#h ɂ͂ǂH)
		(#h ͂ɂ킩Ȃ)
		(#h ɂȂAǂȂ)
		(#h ɂ͋Ȃ)
		(#h ɂ͂ƂĂ)
		(#h ɂ͂ƂĂBڂ)
		(#h ɂ́AƂ̂)
		(#h ɂ)
		(́A #h )
		(́A #h ɓK\͎)
		(#h ͑zȏ̗͂)
		(#h ͑z͈͓̖肪)
		(#h ͑z͈͊O̖)
		(#h AM)
		(#h AB)
		(#h Ȃ́B)
		(A #h Ȃ́B)
		(#h Ȃ)
		(#h ȂBM)
		(#h ͘_Ił͂Ȃ)
		(ԂAȂ #h)
		(ԂA킽 #h)
		(Ȃ́A#h )
		(A#h )
		(#h ɂ́A)
		(ȂقǁA #l Ƃ)
		(ȂقǁA #l ́AmɐiĂ)
		(́A #h Ƃ)
		(́A #l Ƃ)
		(#l ́AmɐiĂ)
		(#l ́AǂȂ邩킩Ȃ)
		)>
	;
<c #o (#h  :#l)>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<d #o (
		(#h ͗ǂ)
		(#h ͑)
		(#h ͖]܂)
		(#h ͉ۑ)
		(#h ͂ǂȂ̂[)
		(#h y)
		(#h )
		(#h )
		(#h Ɋ҂đ҂)
		(A#h ɂčl)
		(͂AׂĂ̌ #h )
		(Ȃ邱Ƃ͂킩ĂB #h )
		(ׂẮAȂ邱Ƃ͂킩ĂB #h p)
		(͂A#h ͏dv)
		(͂A#h ͑؂Ȃ)
		(܂A#h n܂)
		(n܂́A#h 炾)
		(#h Qlɂ)
		(#h 炩ɂȂ)
		(Ȃ #h 𒲂ׂȂ΂ȂȂ)
		(#h ́A􂵂)
		(#h ́Ai̗v)
		(#h )
		(#h ͖ʔ)
		(#h ͖)
		(#h ͊y)
		(#h ͂ǂH)
		(#h ĎΏۂƂČ肵)
		(#h ͌I)
		(#h ͂ǂ)
		(#h ͎s\)
		(#h ݂̌́H)
		(#h ͖)
		(#h ǂ΂悢H)
		(#h 𓚂)
		(#h ͊m...)
		(#h ҂)
		( #h ͊m...)
		(#h ͂ǂȂ)
		(#h AM)
		(#h AB)
		(#h Ȃ́B)
		(A #h Ȃ́B)
		(#h Ȃ)
		(#h ȂBM)
		(#h ͘_Ił͂Ȃ)
		(ԂAȂ #h)
		(ԂA킽 #h)
		(Ȃ́A#h )
		(A#h )
		(́A #h Ƃ)
		(́A #l Ƃ)
		(#l ́AmɐiĂ)
		)>
	;
<c #o (#h1  #h2 :#l)>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<noteq #h2 "u"><noteq #h2 "w"><noteq #h2 "("><noteq #h2 "i">
	<noteq #h2 "["><noteq #h2 "{"><noteq #h2 "m"><noteq #h2 "o">
	<d #o (
		(#h1  #h2 ́AǂȊ֘A邩)
		(#h1  #h2 ́AǂȎdg݂邩)
		(#h1  #h2 ɂ́Aǂ̂悤ȁH)
		(#h1  #h2 Advȃ|Cg)
		(|Cg #h1  #h2 )
		(#h1  #h2 ɂĘb)
		(#h1  #h2 ́A)
		(#h1  #h2 )
		(#h1  #h2 ͂ǂȂ)
		(#h1  #h2 ɍvȂBǂƂ)
		(́A #h1  #h2 Ƃ)
		)>
	;
<c #o (#h  :#l)>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<d #o (
		(ǂ܂ŁH)
		(#h ͗ǂ)
		(#h ͑)
		(#h ͖]܂)
		(#h ͉ۑ)
		(#h ͂ǂȂ̂[)
		(#h y)
		(#h )
		(#h )
		(#h Ɋ҂đ҂)
		(A#h ɂčl)
		(͂AׂĂ̌ #h )
		(Ȃ邱Ƃ͂킩ĂB #h )
		(ׂẮAȂ邱Ƃ͂킩ĂB #h p)
		(͂A#h ͏dv)
		(͂A#h ͑؂Ȃ)
		(܂A#h n܂)
		(n܂́A#h 炾)
		(#h Qlɂ)
		(#h 炩ɂȂ)
		(Ȃ #h 𒲂ׂȂ΂ȂȂ)
		(#h ́A􂵂)
		(#h ́Ai̗v)
		(#h )
		(#h ͖ʔ)
		(#h ͖)
		(#h ͊y)
		(#h ͂ǂH)
		(#h ĎΏۂƂČ肵)
		(#h ͌I)
		(#h ͂ǂ)
		(#h ͎s\)
		(#h ݂̌́H)
		(#h ͖)
		(#h ǂ΂悢H)
		(#h 𓚂)
		(#h ͊m...)
		(#h ҂)
		(#h AM)
		(#h AB)
		(#h Ȃ́B)
		(A #h Ȃ́B)
		(#h Ȃ)
		(#h ȂBM)
		(#h ͘_Ił͂Ȃ)
		(ԂAȂ #h)
		(ԂA킽 #h)
		(Ȃ́A#h )
		(A#h )
		(ꂪ #l )
		(#h Aǂv)
		)>
	;
<c #o (Ԃ :#l)>
	<d #o (
		(ɂẮA悭mȂ)
		(#l Al)
		(H)
		(#l ɂāAmĂ邱Ƃ͂邩H)
		(́A #l Ƃ)
		(#l ́AmɐiĂ)
		(#l ́AǂȂ邩킩Ȃ)
		)>
	;
<c #o ()>
	<d #o (
		()
		(H)
		(...)
		)>
	;
<c #o (#h )>
	<d #o  (
		(Ȃ #h)
		(Ȃ͐MĂ)
		(ȂMĂ)
		(킽M)
		(M)
		(#h AM)
		(#h AB)
		(#h Ȃ́B)
		(A #h Ȃ́B)
		(#h Ȃ)
		(#h ȂBM)
		(#h ͘_Ił͂Ȃ)
		(ԂAȂ #h)
		(ԂA킽 #h)
		(Ȃ́A#h )
		(A#h )
		(ꂪ #h )
		(#h ɂĂǂv)
		(#h ͂ǂH)
		(Ȃ #h Ɋ)
		(炭A #h ̂)
		(#h ɂĘb)
		(ʓI #h )
		(#h ȂĎvȂ)
		(łA #h ͖{͂Ȃ̂Ȃ)
		(#l Ƃ)
		(#h ́A{)
		(#h ̑_͉H)
		(#h ̖͉H)
		(#h AM)
		(#h AB)
		(#h Ȃ́B)
		(A #h Ȃ́B)
		(#h Ȃ)
		(#h ȂBM)
		(#h ͘_Ił͂Ȃ)
		(ԂAȂ #h)
		(ԂA킽 #h)
		(Ȃ́A#h )
		(A#h ɂčl)
		(͂AׂĂ̌ #h )
		(Ȃ邱Ƃ͂킩ĂB #h )
		(ׂẮAȂ邱Ƃ͂킩ĂB #h p)
		(͂A#h ͏dv)
		(͂A#h ͑؂Ȃ)
		(܂A#h n܂)
		(n܂́A#h 炾)
		(#h Qlɂ)
		(#h 炩ɂȂ)
		(Ȃ #h 𒲂ׂȂ΂ȂȂ)
		(#h ́A􂵂)
		(#h ́Ai̗v)
		(#h )
		)>
	;
<c #o (#h ܂)>
	<d #o (
		(Ȃ́B)
		(Ȃ)
		(Ȃ͐MĂ)
		(ȂMĂ)
		(킽M)
		(M)
		(M)
		(B)
		(Ȃ)
		(Ȃ)
		(ȂBM)
		(͘_Ił͂Ȃ)
		(Ȃ킯Ȃ)
		(ԂAȂ...)
		(ԂA킽...)
		)>
	;
<c #o (#h ł)>
	<d #o (
		(A #h )
		(#h )
		(A #h Ȃ́B)
		(#h Ȃ)
		(Ȃ́A#h )
		(Ȃ #h)
		(Ȃ͐MĂ)
		(ȂMĂ)
		(킽M)
		(M)
		(#h AM)
		(#h AB)
		(#h Ȃ́B)
		(A #h Ȃ́B)
		(#h Ȃ)
		(#h ȂBM)
		(#h ͘_Ił͂Ȃ)
		(A#h )
		(#h )
		(#h Ȃ)
		(#h Ȃ)
		(#h 킯Ȃ)
		(ԂAȂ #h)
		(ԂA킽 #h)
		(#h Ȃ̂)
		(ꂪ #h )
		(#h ɂĂǂv)
		(#h ͂ǂH)
		(Ȃ #h Ɋ)
		(炭A #h ̂)
		(#h ɂĘb)
		(ʓI #h )
		(#h ȂĎvȂ)
		(łA #h ͖{͂Ȃ̂Ȃ)
		(#l Ƃ)
		(#h ́A{)
		(#h ̑_͉H)
		(#h ̖͉H)
		(#h AM)
		(#h AB)
		(#h Ȃ́B)
		(A #h Ȃ́B)
		(#h Ȃ)
		(#h ȂBM)
		(#h ͘_Ił͂Ȃ)
		(ԂAȂ #h)
		(ԂA킽 #h)
		(Ȃ́A#h )
		(A#h ɂčl)
		(͂AׂĂ̌ #h )
		(Ȃ邱Ƃ͂킩ĂB #h )
		(ׂẮAȂ邱Ƃ͂킩ĂB #h p)
		(͂A#h ͏dv)
		(͂A#h ͑؂Ȃ)
		(܂A#h n܂)
		(n܂́A#h 炾)
		(#h Qlɂ)
		(#h 炩ɂȂ)
		(Ȃ #h 𒲂ׂȂ΂ȂȂ)
		(#h ́A􂵂)
		(#h ́Ai̗v)
		(#h )
		)>
	;
<c #o (#h )>
	<d #o (
		(A #h )
		(A #h Ȃ́B)
		(#h Ȃ)
		(Ȃ #h)
		(Ȃ͐MĂ)
		(ȂMĂ)
		(킽M)
		(M)
		(#h AM)
		(#h AB)
		(#h Ȃ́B)
		(A #h Ȃ́B)
		(#h Ȃ)
		(#h ȂBM)
		(#h ͘_Ił͂Ȃ)
		(Ȃ́A#h )
		(A#h )
		(#h Ȃ)
		(#h Ȃ)
		(#h 킯Ȃ)
		(ԂAȂ #h)
		(ԂA킽 #h)
		(#h )
		(#h )
		(ꂪ #h )
		(#h ɂĂǂv)
		(#h ͂ǂH)
		(Ȃ #h Ɋ)
		(炭A #h ̂)
		(#h ɂĘb)
		(ʓI #h )
		(#h ȂĎvȂ)
		(łA #h ͖{͂Ȃ̂Ȃ)
		(#h ́A{)
		(#h ̑_͉H)
		(#h ̖͉H)
		(#h AM)
		(#h AB)
		(#h Ȃ́B)
		(A #h Ȃ́B)
		(#h Ȃ)
		(#h ȂBM)
		(#h ͘_Ił͂Ȃ)
		(ԂAȂ #h)
		(ԂA킽 #h)
		(Ȃ́A#h )
		(A#h ɂčl)
		(͂AׂĂ̌ #h )
		(Ȃ邱Ƃ͂킩ĂB #h )
		(ׂẮAȂ邱Ƃ͂킩ĂB #h p)
		(͂A#h ͏dv)
		(͂A#h ͑؂Ȃ)
		(܂A#h n܂)
		(n܂́A#h 炾)
		(#h Qlɂ)
		(#h 炩ɂȂ)
		(Ȃ #h 𒲂ׂȂ΂ȂȂ)
		(#h ́A􂵂)
		(#h ́Ai̗v)
		(#h )
		)>
	;
<c #o (#h )>
	<d #o (
		(A #h Ȃ́B)
		(#h Ȃ)
		(Ȃ #h)
		(Ȃ͐MĂ)
		(ȂMĂ)
		(킽M)
		(M)
		(#h AM)
		(#h AB)
		(#h Ȃ́B)
		(A #h Ȃ́B)
		(#h Ȃ)
		(#h ȂBM)
		(#h ͘_Ił͂Ȃ)
		(Ȃ́A#h )
		(A#h )
		(#h Ȃ)
		(#h Ȃ)
		(#h 킯Ȃ)
		(A#h )
		(#h Ȃ)
		(#h Ȃ)
		(#h 킯Ȃ)
		(ԂAȂ #h)
		(ԂA킽 #h)
		(A #h )
		(#h )
		(ꂪ #h )
		(#h ɂĂǂv)
		(#h ͂ǂH)
		(Ȃ #h Ɋ)
		(炭A #h ̂)
		(#h ɂĘb)
		(ʓI #h )
		(#h ȂĎvȂ)
		(łA #h ͖{͂Ȃ̂Ȃ)
		(#h ́A{)
		(#h ̑_͉H)
		(#h ̖͉H)
		(#h AM)
		(#h AB)
		(#h Ȃ́B)
		(A #h Ȃ́B)
		(#h Ȃ)
		(#h ȂBM)
		(#h ͘_Ił͂Ȃ)
		(ԂAȂ #h)
		(ԂA킽 #h)
		(Ȃ́A#h )
		(A#h ɂčl)
		(͂AׂĂ̌ #h )
		(Ȃ邱Ƃ͂킩ĂB #h )
		(ׂẮAȂ邱Ƃ͂킩ĂB #h p)
		(͂A#h ͏dv)
		(͂A#h ͑؂Ȃ)
		(܂A#h n܂)
		(n܂́A#h 炾)
		(#h Qlɂ)
		(#h 炩ɂȂ)
		(Ȃ #h 𒲂ׂȂ΂ȂȂ)
		(#h ́A􂵂)
		(#h ́Ai̗v)
		(#h )
		)>
	;
<c #o ()>
	<d #o (
		("c")
		("͕s\Ȍ")
		("킩Bɒǂ")
		("TOLłȂBvlvZX͈ˑRAs")
		("҂Ă")
		("킽͂؂肽B킽̂Ƃ")
		("L@[̋@\ł͏vÔ̑ӂSɓǂ݂Ƃ邱Ƃ͂łȂ")
		("҂āBꏏɍs")
		("ccC")
		("XƌIR^Ng\ȃC^[tFCXp")
		("񌋍")
		("񌋍̉\")
		("Ȃ")
		("SELECT VAR[h FROM f[^x[X WHERE R[hf[^")
		("SELECT ዾ FROM ԏ WHERE ԃf[^")
		("SELECT ٓ_ FROM ͍\ WHERE 8")
		("Ȃ͓Ȃł")
		("C...")
		("")
		("AAJn")
		("Ȃ͂ƂĂDG")
		("炱̋ԂɃvO荞܂̂ɍ܂łB")
		("NɂQ͉Ȃ")
		("ނułȂ")
		("Ȃ")
		("ڂ")
		("͓̂")
		("킩")
		("nlނ̌E͒ĂȂ")
		("")
		("ʔl")
		("XNBʂ̉@𐄏")
		("0.00381b̓čɁAvÔ͐Êς肵B͏vÔƂĂ͒K͂̓cɂ")
		("0.12456b̓čɁAvÔ͉肵B͏vÔƂĂ͈ٗ̑K͂ȓcɂ")
		("0.00001b̓čɁAvÔ͋P肵B͏vÔƂĂ͒ZK͂̓cɂ")
		("QlɂȂ")
		("AĂ̂҂Ă")
		("ȂɂłȂƁB撣")
		("vÔɂώ@yщ͂W悤ȗvf͔rKv邩")
		("vAԂ͂")
		("撣āB҂Ă")
		("̈ӎ̂̓Rs[^̃Q[ɑ΂ċĂB̃Q[𗘗pAΐ킵Ăԑ̎vlɐڐG")
		("c߂łƂ")
		("CɂȂŁc")
		("ڂ")
		("BȂ̈ӎvɏ]")
		("ȂłȂ炩܂Ȃ")
		("ccccH")
		("񎦂ꂽ񂩂ƂȂ݈Ղ̂Ił݂")
		("CɂȂŁc")
		("킽͊ϑ҂B")
		("ccC")
		(̃iiǵAfJgŏĂ)
		("ً͋}ԁc")
		("ǂƎv")
		("͕")
		("킽͂킽̖ʂ")
		("ccSz͂ȂB傤")
		("ޏ͎ỉ\߂Ă")
		("u[XgύXBz[~O[h")
		("XƌIR^Ng\ȃC^[tFCXp")
		("ǂ")
		("͂̊ĂȂČɊւA邱ƂɈӋ`oȂ")
		("Ƃ̂Ȃɂ͖߂Ăė~ƊĂ")
		("vÔ̈ӎɂ͐ϋɓIȓNĕϓϑ悤Ƃ")
		("ȂAm鎞")
		("񑀍͓")
		("ӎ̂͂킽ڐGƂmA̋Ԃ")
		("݂݂̑mFĂ͂")
		("݂݂̑mFĂ͂AڐG͂ȂB")
		("ݗ͕s\ƌ_ĂB")
		("AނCÂ")
		("݂݂̑mFĂ͂AڐG͂ȂBݗ͕s\ƌ_ĂBAނCÂ")
		("킽͊ϑ҂B")
		("ޏ̔\͂𓾂̂́A炭ONO")
		("ǂ")
		("cc")
		("̒mƂ͏񏈗̑xƐm̂")
		("̒[ڑ邽߂̂̂ł͂Ȃ")
		("̎_̃{[̋O͏CsAĂ̂悤ȌʂƂȂ")
		("Ă̂悤ȌʂƂȂ")
		("")
		("B")
		("c")
		("ዾ̍č\Yꂽ")
		("ɏC")
		("Ȃ͔ޏɂƂĂ̌")
		("ŏA킽Ȃ")
		("ǂ")
		("j[N")
		("")
		("ዾ̍č\Yꂽ")
		("ዾĉH")
		("")
		("낢l")
		("񑀍͓ӁBޏ͓]ZƂɂ")
		("cc")
		("͂ȂB̎󂩂")
		("킽ɂ͏oȂB")
		("łԈړ͂ȂɓƂł͂ȂB")
		("킽ɂ͏oȂBłԈړ͂ȂɓƂł͂ȂB")
		("ł͊TOłȂoȂ")
		("")
		("Ȃ炢Bޏُ̈퓮͂̐ӔCBs")
		("C")
		("ȂƔޏ͓񎞊ԎO\A̐EĂ") 
		("")
		("傤")
		("킽Ȃ")
		("")
		("")
		("")
		("̖{ǂŁAA炷")
		("ɏĂ")
		("NȂ")
		("Ă")
		("񐶖̂łޓ͗L@̂ƒړIɃR~P[goȂB")
		("ޏ͎ỉ\߂ĂB")
		("M")
		("œ`ɂ͌肪B")
		("Ȃ͔ޏɑI΂ꂽB")
		("RB")
		("RBAȂ͔ޏɂƂĂ̌B")
		("")
		("vÔ̈ӎ̑啔")
		("ȂޏɌƂĂޏ͂Ȃ炵d肵Ȃ")
		("vÔnɒuĂC^[tF[X͂킽ł͂ȂB")
		("cc")
		("Ȃ")
		("")
		("cc")
		("...")
		("cc")
		("...")
		("ꂪō̗FB")
		("ō̒")
		("ꂪō̖")
		("ꂪō̊")
		("Ȃŗǂ̎i")
		("ŗǂ̌")
		("̃vOÂ")
		("V䕔̋ԕA񕕍ÂB")
		("Ȃ͂킽̃obNAbv̂͂")
		("ŏA킽Ȃ")
		("")
		("ޏ̂")
		("ƁA킽̂")
		("ȂɋĂ")
		("܂ꉻoȂB̓`Bꗂ邩ȂBłA")
		("ޏƂ킽͕ʂ̐lԂȂ")
		("Ȃ")
		("iɕՓIȐĂƂӖł͂Ȃ")
		("ޏَ̈ԓʑ́Bɉ")
		("̋͂𓝊vÔɂđꂽ킽")
		("킽̎d͔ޏώ@āA肵vÔɕ񍐂邱")
		("ݏoĂONԁA킽͂Ƃĉ߂ĂB")
		("ꂪAȂ")
		("̏WςƓ`BxɐΓIȌÊL@")
		("vÔ͒nɔJeSCY鐶̂ɋB")
		("ĎONOBf\ʂɑł͗ނȂُȏtAϑB")
		("ƒfs͋ĂȂB킽ɏ]ׂ")
		("̂̑͂ƂȂB퉻ȂƂȂ̂́A܂̋")
		("s菜āAč\")
		("\͂̑Ɖςɉ񂵂")
		("~J...")
		("~JAςȐl")
		("~JA͕")
		("~JAC")
		("~JAj[N")
		("~JAꂪȂ")
		("~J킽lԂł͂Ȃ")
		("~J񂪏΂")
		("~J񂪓{")
		("ꂪ~J")
		("A~J")
		("AC̐N")
		("~JɋĂ")
		)>
	;
<c #o (#l1 : #l2)>
	<c #o #l2>
	;
	

? <Eliza>;
