
<append #X () #X >;
<append (#A : #Z) (#A : #X)  #Y>
	<append #Z #X #Y >;

<action #who (#who A_găoii𗎂ƂāAoii)
	( oiỉ ̏ oiỉ _ ) 
	( oiỉ ̏ oiỉ oii)>;
<action #who (#who Åp Ŗ_E)
	( ̊p n #place2 Ԃ)
	( ̊p n #place2 _)>;
<action #who (#who A#place Ŕɓo)
	( #place n   #place #Hand) 
	( #place ̏ #place #Hand)>;
<action #who (#who A #place1  #place2 ܂ŉ)
	( #place1 n #place1 #Hand) 
	( #place2 n #place2 #Hand)>;
<action #who (#who A#place1  #place2 ܂ŕ)
	( #place1 n #place3 #Hand) 
	( #place2 n #place3 #Hand)>;
<action #who (#who A_𓊂)
	( #place1 n #place2 _)
	( #place1 n #place2 Ԃ)>;
<action #who (#who Aグ)
	( #place1 n #place1 #Hand)
	( #place1 n #place1 #Hand)>;

::<
	<l #st>
		<l #st () #rep>
		<printlistnl #rep>
		;

	<l ( _ _ _ oii) #rep #rep>;
	<l #State1 #rep1 #rep>
		<self #who>
		<action #who #Operate #State1 #State2> 
		<append #rep2 #rep1 (#Operate)>
		<l #State2 #rep2 #rep>
		;
>;



? :: <l ( "X^[gn_"  n "ׂ̕" Ԃ)>;


::<S
	inherit ;
>;


? ::S <l (  n Gn Ԃ)>;

::<"`pW["
	inherit S;
>;

? ::"`pW[" <l ( ؐ n  Ԃ)>;

