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

<action #who (#who ȤäƥХʥʤȤơХʥʤĤ)
	( Хʥʤβ Ȣξ Хʥʤβ  ) 
	( Хʥʤβ Ȣξ Хʥʤβ Хʥ)>;
<action #who (#who γ 򽦤)
	( γ  #place2 ֤)
	( γ  #place2 )>;
<action #who (#who #place ȢФ)
	( #place    #place #Hand) 
	( #place Ȣξ #place #Hand)>;
<action #who (#who Ȣ #place1  #place2 ޤǲ)
	( #place1  #place1 #Hand) 
	( #place2  #place2 #Hand)>;
<action #who (#who #place1  #place2 ޤ⤯)
	( #place1  #place3 #Hand) 
	( #place2  #place3 #Hand)>;
<action #who (#who ꤲ)
	( #place1  #place2 )
	( #place1  #place2 ֤)>;
<action #who (#who Ȣ夲)
	( #place1  #place1 #Hand)
	( #place1  #place1 #Hand)>;

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

	<ͤ ( _ _ _ Хʥ) #rep #rep>;
	<ͤ #State1 #rep1 #rep>
		<self #who>
		<action #who #Operate #State1 #State2> 
		<append #rep2 #rep1 (#Operate)>
		<ͤ #State2 #rep2 #rep>
		;
>;



? :: <ͤ ( ""   "٤" ֤)>;


::<
	inherit ;
>;


? :: <ͤ (   Ũ ֤)>;

::<"ѥ󥸡"
	inherit ;
>;

? ::"ѥ󥸡" <ͤ (    ֤)>;

