#include <bits/stdc++.h>
using namespace std;

#include <ext/pb_ds/assoc_container.hpp>
#include <ext/pb_ds/tree_policy.hpp>
using namespace __gnu_pbds;
template<class T>
using ordered_set = tree<T, null_type, less<T>, rb_tree_tag, tree_order_statistics_node_update>;

#define Loop(x,l,r) for (ll x = ll(l); x < ll(r); ++x)
#define LoopR(x,l,r) for (ll x = ll(r)-1; x >= ll(l); --x)
#define Looc(x,l,r) for (ll x = ll(l); x <= ll(r); ++x)
#define LoocR(x,l,r) for (ll x = ll(r); x >= ll(l); --x)
#define int ll
typedef long long ll;
typedef pair<int,int> pii;
typedef pair<ll,ll> pll;

#ifndef DB
#define DB 0
#define endl '\n'
#endif
#define debugl(l) if constexpr ((l) < DB)
#define debug debugl(0)

void solve()
{
	int n;
	cin >> n;
	vector<int> a(n);
	for (auto &x : a) {
		cin >> x;
		x--;
	}
	int q;
	cin >> q;
	vector<pii> qu(q);
	for (auto &[x, y] : qu) {
		cin >> x;
		if (x != 2) {
			cin >> y;
			y--;
		}
	}

	list<int> ls;
	vector<list<int>::iterator> its(n);

	for (int x : a)
		its[x] = ls.insert(ls.end(), x);
	for (auto [t, p] : qu) {
		if (t != 1)
			continue;
		auto it = p == -1? ls.end(): its[p];
		its.push_back(ls.insert(it, its.size()));
	}

	vector<int> b(ls.begin(), ls.end());
	n = b.size();
	vector<int> bp(n);
	Loop (i,0,n)
		bp[b[i]] = i;

	debug {
		for (int x : b)
			cerr << x << ' ';
		cerr << "???\n";
	}

	ordered_set<pii> s;
	for (int x : a)
		s.insert({bp[x], x});

	int base = 0;
	int cnt = a.size();
	for (auto [t, p] : qu) {
		if (t == 1) {
			s.insert({bp[cnt], cnt});
			cnt++;
		}
		if (t == 2)
			base++;
		if (t == 3) {
			auto [i, x] = *s.find_by_order(base + p);
			debug cerr << i << "!\n";
			cout << b[i] + 1 << '\n';
		}

	}
}

signed main()
{
	cin.tie(0) -> sync_with_stdio(false);
	int t = 1;
	//cin >> t;
	while (t--)
		solve();
}