/*
 * bLN^[
 * 	~JvO 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 ( :#b2) (ʂ :#b1)>	<Replace #b2 #b1>;
<Replace ( :#b2) ( :#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 "~J: " #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 (j[X :#l)>
	<setnewsflag on>
	<d #o (
		(j[Xǂ)
		(j[Xy݂)
		(j[X͂ł񂶂ȂH)
		(ꂪj[XȂ)
		)>
	;

<c #o (~J :#l)>
	<d #o (
		(~J́AC̐N҂Ȃ)
		(̃~J́AfJgŏĂ邶Ȃ)
		(~JfJǵA񃍃WbNvO~O)
		(~J́Aʂ̖邶ȂB)
		(~J́A܂̖邶ȂB)
		(ƂŃfJgmĂ邩H)
		(~J́AC̐N҂Ȃ̂Ȃ)
		(~J񂪕|͂ȂH)
		)>
	;
<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 (#h Ȃ)>
	<d #o (
		(ႤƂƂ͂Ȃ)
		(ȂƂƂ͂ȂȂ)
		(ȂƂ͂ȂȂ)
		()
		(...)
		(Ƃ͂Ȃ)
		(킽ɂ́A֌WȂ)
		(킩)
		(킩ȂȂ)
		(#h Ȃ...)
		(́A#h )
		({...)
		(ʂ́A#h ȂƂ͂ȂȂ)
		(܂́A#h ȂƂ͂ȂȂ)
		(ʂ́A#h Ȃ)
		(܂́A#h Ȃ)
		(킽́A#h ȂȂ)
		)>
	;
<c #o (ł :#l)>
	<d #o  (
		(łȂ)
		(ł邱Ƃ́A킩ĂB)
		(́AǂƁB)
		()
		(...)
		(...悩)
		(ꂪ]݁H)
		(킩ĂB)
		(ȂƂ...)
		(킽ɔCāB)
		)>
	;
<c #o (܂  :#l)>
	<d #o (
		(ʂ́A#l )
		(܂́A#l )
		(#l  AŗǂH)
		(#l  AŗǂB)
		(#l AłǂȂH)
		(킽ȂƂ悤ȂB)
		(ȂƂB)
		(ɂĂǂvH)
		(#l AǂvH)
		(B)
		(ʂB)
		(܂B)
		(ꂪA #l)
		(vA #l ȂȂƂȂB)
		)>
	;
<c #o (  :#l)>
	<d #o (
		(̓~JAʂ̂߂ɂɋ񂶂Ȃ)
		(̓~JA܂̂߂ɂɋ񂶂Ȃ)
		(́A~J)
		(#l AǂvH)
		(A̓~J)
		(킩ȂȂ)
		(#l  AŗǂH)
		(#l  AŗǂB)
		(#l AłǂȂH)
		(#l ƂĒ߂KvȂB킽ȂƂ悤ȂB)
		(ʂƓȂ)
		(܂ƓȂ)
		(vA #l ȂȂƂȂB)
		(ʂ́AǂH)
		(܂́AǂH)
		)>
	;
<c #o ( :#l)>
	<d #o (
		(͑厖)
		(ƁAȂƂȂ)
		(΁A])
		(͂Ȃ)
		)>
	;
<c #o (CJ :#l)>
	<d #o (
		(CJłȃCJ)
		(CJł悩ŃQ\)
		(CJȂȂƂȂ邶ȃCJ)
		(CJ)
		(CJǂv)
		(킽̓~JAʂ̂߂ɂɋ񂶂ȃCJ)
		(ẮAʂCJ)
		(ẮA܂CJ)
		(CJ͊CōłꂽȃCJ)
		)>
	;
<c #o (Gr :#l)>
	<d #o (
		(ɐGrׂ)
		(ɐGrv)
		(ɐGrDI)
		(ǂɈɐGr)
		(ɐGr邶Ȃ)
		(ɐGrAɐGr...)
		)>
	;
<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 Ȃ)
		(#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ė~)
		(#h ȂĎvȂ)
		(łA #h ͖{͂Ȃ̂ȂȂ)
		(#l Ƃ)
		(#h ̑_͉H)
		(#h ̖͉H)
		(#h AMė~)
		(A #h ȂB)
		(#h ȂȂ)
		(#h ȂBMė~)
		(ԂAʂ #h)
		(ԂA܂ #h)
		(Ԃ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 ́Ai̗v)
		(#h )
		(#h ͖ʔ)
		(#h ͖)
		(#h ͊y)
		(#h ͂ǂH)
		(#h NΏۂƂČ肵)
		(#h ͌I)
		(#h ͂ǂ)
		(#h CɂȂ)
		(#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 )
		(͂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 AȂB)
		(#h Ȃ́B)
		(A #h Ȃ񂶂ȂB)
		(#h Ȃ)
		(#h ȂBMė~)
		(ԂAʂ #h)
		(ԂA܂ #h)
		(ԂA킽 #h)
		(ʂ́A#h )
		(܂́A#h )
		(A#h )
		(#l Ƃ)
		(́A #h Ƃ)
		(́A #l Ƃ)
		(#l ́AmɐNĂ邶Ȃ)
		)>
	;
<c #o (#h  :#l)>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<d #o (
		(#h ͂ǂȂ)
		(#h ɂ͂ǂ̂悤ȁH)
		(#h Ɋ)
		(#h ɂ͊҂Ă)
		(#h ɂ͂ǂH)
		(#h ͂킩Ȃ)
		(#h ɂȂAǂȂ)
		(#h ɂ͋ȂȂ)
		(#h ɂ͂ƂĂ)
		(#h ɂ͂ƂĂBڂ)
		(#h ɂ́AƂ̂)
		(#h ɂ)
		(́A #h )
		(́A #h ɓKC̐N)
		(#h ͑zȏ̗͂)
		(#h ͑z͈͓Ȃ)
		(#h ͑z͈͊OȂ)
		(#h AB)
		(#h Ȃ́B)
		(A #h Ȃ̂ȂB)
		(#h ȂȂ)
		(ԂAʂ #h)
		(ԂA܂ #h)
		(ԂA킽 #h)
		(ʂ́A#h )
		(܂́A#h )
		(A#h )
		(#h ɂ́A)
		(ȂقǁA #l Ƃ)
		(ȂقǁA #l ́AmɐNĂ邶Ȃ)
		(́A #h Ƃ)
		(́A #l Ƃ)
		(#l ́AmɐNĂ邶Ȃ)
		(#l ́AǂȂ邩킩Ȃ)
		)>
	;
<c #o (#h  :#l)>
	<#rand = ::sys<random _> % 2> <is #rand 1>
	<d #o (
		(#h ͗ǂƂȂ)
		(#h ͑)
		(#h ͉ۑ)
		(#h ͂ǂȂ)
		(#h y݂Ȃ)
		(#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 NΏۂƂČ肵)
		(#h ͌I)
		(#h ͂ǂ)
		(#h ͎s\)
		(#h ͖Ȃ)
		(#h ǂ΂悢H)
		(#h 𓚂)
		(#h ͊m...)
		( #h ͊m...)
		(#h AMė~)
		(#h ȂȂ)
		(#h ȂBMė~)
		(ԂAʂ #h)
		(ԂA܂ #h)
		(ԂA킽 #h)
		(ʂ́A#h )
		(܂́A#h )
		(́A #h Ƃ)
		(́A #l Ƃ)
		(#l ́AmɐNĂ邶Ȃ)
		)>
	;
<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ǂ)
		(#h1  #h2 ɂ́AǂȃQ\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 )
		(A#h ɂčl悤Ȃ)
		(͂AׂĂ̌ #h )
		(Ȃ邱Ƃ͂킩ĂB)
		(ׂẮAȂ邱Ƃ͂킩ĂB #h )
		(͂A#h ͏dv)
		(͂A#h ͑؂Ȃ)
		(܂A#h n܂)
		(n܂́A#h 炾)
		(#h Qlɂ悤Ȃ)
		(#h 炩ɂȂ)
		(Ȃ #h 𒲂ׂȂ΂ȂȂȂ)
		(#h ́AN̗v)
		(#h )
		(#h ͖ʔ)
		(#h ͖)
		(#h ͊y)
		(#h ͂ǂH)
		(#h NΏۂƂČ肵)
		(#h ͌I)
		(#h ͂ǂ)
		(#h ͎s\)
		(#h ݂̌́H)
		(#h ͖)
		(#h ͊m...)
		(#h ҂)
		(#h AMė~)
		(#h Ȃ)
		(#h ȂBMė~)
		(ԂAʂ #h)
		(Ԃ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ɐNĂ)
		(#l ́AǂȂ邩킩ȂȂ)
		)>
	;
<c #o ()>
	<d #o (
		()
		(H)
		(...)
		)>
	;
<c #o (#h )>
	<d #o (
		(ʂ #h)
		(܂ #h)
		(ʂ͐MĂ)
		(܂͐MĂ)
		(ʂMĂ邶Ȃ)
		(܂MĂ邶Ȃ)
		(킽Mė~)
		(Mė~)
		(#h AMė~)
		(#h ȂȂ)
		(#h ȂBMė~)
		(ԂAʂ #h)
		(ԂA܂ #h)
		(ԂA킽 #h)
		(ʂ́A#h )
		(܂́A#h )
		(ꂪ #h )
		(#h ɂĂǂv)
		(#h ͂ǂH)
		(炭A #h ̂ƂȂ)
		(#h ɂĘbė~)
		(ʓI #h )
		(#h ȂĎvȂȂ)
		(łA #h ͖{͂Ȃ̂ȂȂ)
		(#l Ƃ)
		(#h ̑_͉H)
		(#h ̖͉H)
		(#h AMė~)
		(#h Ȃ)
		(#h ȂBMė~)
		(ԂAʂ #h)
		(ԂA܂ #h)
		(ԂA킽 #h)
		(ʂ́A#h )
		(܂́A#h )
		(͂AׂĂ̌ #h )
		(Ȃ邱Ƃ͂킩ĂB #h )
		(ׂẮAȂ邱Ƃ͂킩ĂB #h p)
		(͂A#h ͏dv)
		(͂A#h ͑؂Ȃ)
		(܂A#h n܂)
		(n܂́A#h 炾)
		(#h 炩ɂȂ)
		(Ȃ #h 𒲂ׂȂ΂ȂȂȂ)
		(#h ́A􂵂)
		(#h ́Ai̗v)
		(#h )
		)>
	;
<c #o (#h ܂)>
	<d #o (
		(Ȃ̂ȂB)
		(Ȃ)
		(ʂ͐MĂ邶Ȃ)
		(܂͐MĂ邶Ȃ)
		(킽Mė~)
		(Mė~)
		(B)
		(Ȃ)
		(Ȃ)
		(ȂBMė~)
		(Ȃ킯ȂȂ)
		(ԂAʂ...)
		(ԂA܂...)
		(ԂA킽...)
		)>
	;
<c #o (#h ł)>
	<d #o (
		(A #h Ȃ)
		(#h Ȃ)
		(A #h Ȃ́B)
		(#h Ȃ)
		(ʂ́A #h )
		(܂́A #h)
		(ʂMĂ邶Ȃ)
		(܂MĂ邶Ȃ)
		(킽Mė~)
		(Mė~)
		(#h AMė~)
		(#h Ȃ)
		(#h ȂBMė~)
		(#h ȂAȂB)
		(#h ȂȂ)
		(#h Ȃ̂Ȃ)
		(#h 킯Ȃ)
		(ԂAʂ #h)
		(ԂA܂ #h)
		(ԂA킽 #h)
		(#h Ȃ̂)
		(ꂪ #h Ȃ)
		(#h ͂ǂH)
		(炭A #h ̂ƂȂ)
		(#h ɂĘbė~)
		(#h ȂĎvȂȂ)
		(łA #h ͖{͂Ȃ̂ȂȂ)
		(#l Ƃ)
		(#h ́A{)
		(#h ̑_͉H)
		(#h ̖͉H)
		(#h AMė~)
		(#h Ȃ)
		(#h ȂBMė~)
		(ԂAʂ #h)
		(ԂA܂ #h)
		(ԂA킽 #h)
		(ʂ́A#h )
		(܂́A#h )
		(A#h ɂčl)
		(͂AׂĂ̌ #h )
		(Ȃ邱Ƃ͂킩ĂB #h Ȃ)
		(ׂẮAȂ邱Ƃ͂킩ĂB #h )
		(͂A#h ͏dv)
		(͂A#h ͑؂Ȃ)
		(܂A#h n܂)
		(n܂́A#h 炾)
		(#h 炩ɂȂ)
		(Ȃ #h 𒲂ׂȂ΂ȂȂȂ)
		(#h ́A􂵂)
		(#h ́AN̗v)
		)>
	;
<c #o (#h )>
	<d #o (
		(#h Ȃ)
		(ʂ #h)
		(܂ #h)
		(ʂ͐MĂ邶Ȃ)
		(܂MĂ邶Ȃ)
		(킽Mė~)
		(Mė~)
		(#h AMė~)
		(#h Ȃ)
		(#h ȂBMė~)
		(ʂ́A #h )
		(܂́A #h )
		(#h ȂȂ)
		(#h 킯Ȃ)
		(ԂAʂ #h)
		(ԂA܂ #h)
		(ԂA킽 #h)
		(#h )
		(#h Ȃ)
		(ꂪ #h )
		(#h ɂĂǂv)
		(#h ͂ǂH)
		(Ȃ #h Ɋ҂悤Ȃ)
		(炭A #h ̂)
		(#h ɂĘbė~)
		(#h ȂĎvȂȂ)
		(łA #h ͖{͂Ȃ̂ȂȂ)
		(#h ̑_͉H)
		(#h ̖͉H)
		(#h AMė~)
		(#h Ȃ)
		(#h ȂBMė~)
		(ԂAʂ #h)
		(ԂA܂ #h)
		(Ԃ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 炩ɂȂ)
		(Ȃ #h 𒲂ׂȂ΂ȂȂȂ)
		(#h ́A􂵂)
		(#h ́AN̗v)
		(#h )
		)>
	;
<c #o (#h )>
	<d #o (
		(A #h Ȃ́B)
		(#h Ȃ)
		(ʂ #h)
		(܂ #h)
		(#h AȂ)
		(#h Ȃ̂񂶂Ȃ)
		(A #h Ȃ́B)
		(#h Ȃ)
		(#h ȂBMė~)
		(ʂ́A#h )
		(܂́A#h )
		(A#h )
		(#h ȂȂ)
		(#h Ȃ)
		(#h 킯Ȃ)
		(A#h )
		(#h ȂȂ)
		(#h Ȃ)
		(#h 킯ȂȂ)
		(ԂAʂ #h)
		(ԂA܂ #h)
		(ԂA킽 #h)
		(ꂪ #h )
		(#h ɂĂǂv)
		(#h ͂ǂH)
		(Ȃ #h Ɋ)
		(炭A #h ̂)
		(#h ɂĘbė~)
		(#h ȂĎvȂ)
		(łA #h ͖{͂Ȃ̂ȂȂ)
		(#h ̑_͉H)
		(#h ̖͉H)
		(#h AMė~)
		(#h ȂȂ)
		(#h ȂBMė~)
		(ԂAʂ #h)
		(ԂA܂ #h)
		(Ԃ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 炩ɂȂ)
		(Ȃ #h 𒲂ׂȂ΂ȂȂȂ)
		(#h ́A􂵂)
		(#h )
		)>
	;
<c #o ()>
	<d #o (
		("҂ĂȂ")
		("C...Ȃ")
		("Ȃ")
		("킩Ȃ")
		("")
		("ʔ")
		("Ȃ")
		("͂͂͂͂")
		("QlɂȂȂ")
		("ʂłȂ炩܂ȂȂ")
		("܂łȂ炩܂ȂȂ")
		("CɂȂ")
		("ǂȂ")
		("͕")
		("ǂ")
		("߂Ȃ")
		("HׂĂCJ")
		("CJɓV˂Ă悤Ȃ")
		("Ƒ҂Ȃ")
		("Ȃ")
		("Ȃ̌Ɍ܂Ă邶Ȃ")
		("񂶂Ė߃CJ")
		("xĂȂ")
		("ꂶȂ")
		("Ă邶Ȃ")
		("Ȃ񂩂H")
		("ʂ́AׂȂ")
		("܂́AׂȂ")
		("܂́A킽̂")
		("ꂶȂ")
		("NȂ?")
		("낢lȂ")
		("Ow˂Ă肢܂ƌȂ")
		("ccȂ")
		("")
		("cc낵c")
		("_ȂH")
		("NȂH")
		("I")
		("II")
		("")
		("񂶂ȂH")
		("NĂI")
		("xȂ")
		("lȂ")
		("")
		("Ă悤ł͂Ȃ")
		("CJnfȂ")
		("ȊwIȂ")
		("łȂ")
		("߂Ĉ⊶")
		("Ȃ")
		("Ȃ")
		("݂ȁAoJȂH")
		("ss")
		("傤")
		("ꂶȂ")
		("")
		("Ȃ")
		("")
		(CJ͊CōłꂽȂ)
		("R")
		("A")
		("cc")
		("͂͂͂͂͂͂͂͂͂͂")
		("...")
		("킽͊C̐N")
		("ɐGrHׂ")
		("ɐGrD")
		("ɐGr̂Ƃl...")
		("́A킽̂ƂȂ")
		("iig͈Â")
		("iigACȂ")
		("iiĝ͎Ƃ|͂Ȃ̂")
		("iig͐ÂȂ")
		("\ȂAiig")
		("iigɂ͐bɂȂĂ")
		("iig͖ʔȂ")
		("iig͕")
		("킽ƃiig̒Ȃ")
		("iigA킽̒ԂɂȂ")
		)>
	;
<c #o (#l1 : #l2)>
	<c #o #l2>
	;
	

? <Eliza>;
