#include <iostream>
#include <fstream>
#include <cassert>
#include <cstdio>
#include <cstdlib>
#include <ctime>
#include <string>
#include <vector>
#include <algorithm>
using namespace std;

const char iname[] = "secv8.in";
const char oname[] = "secv8.out";

#define MAX_BUFFER_SIZE  1 << 24

char buffer[MAX_BUFFER_SIZE];

class Treap {
    private:

    class Node {
        public:

        int number;
        int priority, desc, reverse;
        Node *left, *right;

        Node(const int p_number, const int p_priority) : number(p_number), priority(p_priority), desc(1), reverse(0), left(0), right(0) {}
        Node(Node *p_left, Node *p_right) : left(p_left), right(p_right), number(0), desc(1 + (p_left ? p_left->desc : 0) + (p_right ? p_right->desc : 0)), reverse(0) {}
    };

    void get_desc(Node* );
    void rotate_left(Node* & );
    void rotate_right(Node* & );
    void balance(Node* & );
    void insert(Node* &, const int, const int, const int);
    void erase(Node* &);
    Node* search(Node* &, const int);
    void update(Node* &);
    void walk(Node*, vector <int>& );

    Node *R;

    public:

    Treap() : R(0) {
        srand(unsigned(time(0)));
    }

    void insert(const int k, const int number) {
        insert(R, k - 1, number, rand() + 1);
    }

    void split(const int i, const int j) {
        Node *Ts, *T, *Tr;
        insert(R, i - 1, 0, 0);
        insert(R->right, j - (i - 1), 0, 0);

        Ts = R->left, T = R->right->left, Tr = R->right->right;
        T->reverse ^= 1;

        delete R->right, delete R;

        R = new Node(Ts, T);
        erase(R);
        T = R, R = new Node(T, Tr);
        erase(R);
    }

    void erase(const int i, const int j) {
        Node *Ts, *T, *Tr;

        insert(R, i - 1, 0, 0);
        insert(R->right, j - (i - 1), 0, 0);

        Ts = R->left, T = R->right->left, Tr = R->right->right;

        delete R->right, delete R;

        R = new Node(Ts, Tr);
        erase(R);
    }

    int search(const int k) {
        Node *n = search(R, k);
        return n->number;
    }

    void walk(vector <int>& vect) { walk(R, vect); }

    friend void erase_all(Node* &);

    ~Treap();
};

void Treap::walk(Node* n, vector <int>& vect) {
    if (n) {
        update(n), update(n->left), update(n->right);
        walk(n->left, vect), vect.push_back(n->number), walk(n->right, vect);
    }
}

void Treap::get_desc(Node* n) { n->desc = (n->left ? n->left->desc : 0) + (n->right ? n->right->desc : 0) + 1; }

void Treap::rotate_left(Node* &n) {
    Node *m = n->left;  n->left = m->right;  m->right = n;
    get_desc(n), get_desc(m), n = m;
}

void Treap::rotate_right(Node* &n) {
    Node *m = n->right;  n->right = m->left;  m->left = n;
    get_desc(n), get_desc(m), n = m;
}

void Treap::balance(Node* &n) {
    if (n->left && n->left->priority < n->priority)
        rotate_left(n);
    else if (n->right && n->right->priority < n->priority)
        rotate_right(n);
    else
        get_desc(n);
}

void Treap::insert(Node* &n, const int k, const int number, const int priority) {
    if (n == 0)
        n = new Node(number, priority);
    else {
        update(n), update(n->left), update(n->right);
        if (k <= (n->left ? n->left->desc : 0))
            insert(n->left, k, number, priority);
        else
            insert(n->right, k - (1 + (n->left ? n->left->desc : 0)), number, priority);
        balance(n);
    }
}

void Treap::erase(Node* &n) {
    if (!n->left && !n->right)
        delete n, n = 0;
    else {
        update(n), update(n->left), update(n->right);
        if (n->left && n->right)
            (n->left->priority < n->right->priority) ? (rotate_left(n), erase(n->right)) : (rotate_right(n), erase(n->left));
        else
            (n->left) ? (rotate_left(n), erase(n->right)) : (rotate_right(n), erase(n->left));
        get_desc(n);
    }
}

Treap::Node* Treap::search(Node* &n, const int k) {
    update(n), update(n->left), update(n->right);

    if ((n->left ? n->left->desc : 0) + 1 == k)
        return n;
    if (k <= (n->left ? n->left->desc : 0))
        return search(n->left, k);
    return search(n->right, k - (1 + (n->left ? n->left->desc : 0)));
}

void Treap::update(Node* &n) {
    if (!n)  return ;

    if (n->left)
        n->left->reverse ^= n->reverse;
    if (n->right)
        n->right->reverse ^= n->reverse;

    if (n->reverse) {
        Node *m = n->left;  n->left = n->right;  n->right = m;
        n->reverse ^= 1;
    }
}

void erase_all(Treap::Node* &n) {
    if (n)
        erase_all(n->left), erase_all(n->right), delete n, n = 0;
}

Treap::~Treap() { erase_all(R); }

inline char parseChar(char* &i, char* limit) {
    while (i < limit && *i < 'A' || *i > 'Z')    ++ i;
    if (i < limit)  return *(i ++);
    return 0;
}

inline int parseInt(char* &i) {
    int in = 0;
    while (*i < '0' || *i > '9')    ++ i;
    while (*i >= '0' && *i <= '9')  in = in * 10 + (*i - '0'), ++ i;
    return in;
}

int main(int argc, char* argv[]) {
    FILE *fi = fopen(iname, "rt");
    FILE *fo = fopen(oname, "wt");

    Treap T;
    char ch; int i, j, x; vector <int> vect;

    int sz;
    buffer[ sz = fread(buffer, 1, MAX_BUFFER_SIZE, fi) ] = 0;
    char *cur_p = buffer, *limit = buffer + sz;

    while (ch = parseChar(cur_p, limit)) {
        if (ch == 'I')
            i = parseInt(cur_p), x = parseInt(cur_p), T.insert(i, x);
        else if (ch == 'R')
            i = parseInt(cur_p), j = parseInt(cur_p), T.split(i, j);
        else if (ch == 'A')
            i = parseInt(cur_p), fprintf(fo, "%d\n", T.search(i));
        else if (ch == 'D')
            i = parseInt(cur_p), j = parseInt(cur_p), T.erase(i, j);
    }

    T.walk(vect);

    for (i = 0; i < (int)vect.size(); ++ i)
        fprintf(fo, "%d ", vect[i]);

    return 0;
}