AG
Size: a a a
AG
AG
AG
join
, который народ в свитере написал поменьше деревья даетjoin (Leaf t) := t;
join (Node ll (Leaf x) rr) := Node (join ll) x (join rr);
join (Node ll (Node l x r) rr) := Node l x (join (Node ll r rr)).
AG
w
AG
AG
AT
AT
AG
AG
AG
AG
AG
AG
AG
AG
AG