// array with segment swaps
#include <cassert>
#include <cstdlib>
#include <iostream>
#include <utility>
using namespace std;

int random ()
{
	return (rand () << 15) ^ rand ();
}

struct Node;
typedef Node * PNode;
struct Node
{
	int value;
	int y;
	int size;
	PNode left;
	PNode right;

	Node (int value_)
	{
		value = value_;
		y = random ();
		size = 1;
		left = nullptr;
		right = nullptr;
	}

	void recalc ()
	{
//		size = 1 + left -> size + right -> size;
		size = 1;
		if (left != nullptr) size += left -> size;
		if (right != nullptr) size += right -> size;
	}
};

pair <PNode, PNode> tsplitK (PNode t, int k)
{
	if (t == nullptr) return {nullptr, nullptr};
	int leftSize = (t -> left == nullptr) ? 0 : t -> left -> size;
	if (k - leftSize - 1 >= 0)
	{
		auto temp = tsplitK (t -> right, k - leftSize - 1);
		t -> right = temp.first;
		t -> recalc ();
		return {t, temp.second};
	}
	else // k <= leftSize
	{
		auto temp = tsplitK (t -> left, k);
		t -> left = temp.second;
		t -> recalc ();
		return {temp.first, t};
	}
}

PNode tmerge (PNode l, PNode r)
{
	if (l == nullptr) return r;
	if (r == nullptr) return l;
	if (l -> y < r -> y)
	{
		r -> left = tmerge (l, r -> left);
		r -> recalc ();
		return r;
	}
	else
	{
		l -> right = tmerge (l -> right, r);
		l -> recalc ();
		return l;
	}
}

int kth (PNode & t, int k)
{
	auto temp = tsplitK (t, k);
	auto r = tsplitK (temp.second, 1);
	int res = r.first -> value;
	temp.second = tmerge (r.first, r.second);
	t = tmerge (temp.first, temp.second);
	return res;
}

void toutputrecur (PNode t)
{
	if (t == nullptr) return;
	cout << "(";
	toutputrecur (t -> left);
	cout << t -> value;
	toutputrecur (t -> right);
	cout << ")";
}

void toutput (PNode t)
{
	toutputrecur (t);
	cout << endl;
}

int main ()
{
	int n = 20;
	PNode root = nullptr;
	for (int i = 1; i <= n; i++)
	{
		root = tmerge (new Node ((i * 3) % n), root);
		toutput (root);
	}
	for (int i = 0; i < n; i++)
	{
		cout << kth (root, i % n) << " ";
	}
	cout << endl;

	{
		int lo = 5;
		int hi = 15;
		int me = 12;
		//              glue2                     glue2
		//  glue1                   glue1
		// one.first  one.second  two.second   three.second
		// 0..lo       lo..me       me..hi         hi..n
		// 0..lo       me..hi       lo..me         hi..n
		auto three = tsplitK (root, hi);
		auto two = tsplitK (three.first, me);
		auto one = tsplitK (two.first, lo);
		toutput (one.first);
		toutput (one.second);
		toutput (two.second);
		toutput (three.second);
		auto glue1 = tmerge (one.first, two.second);
		auto glue2 = tmerge (one.second, three.second);
		root = tmerge (glue1, glue2);
		toutput (root);
	}

	return 0;
}