Problem:
Score : 1100 points

Problem Statement

Let f(A, B), where A and B are positive integers, be the string satisfying the following conditions:

f(A, B) has length A + B;

f(A, B) contains exactly A letters A and exactly B letters B;

The length of the longest substring of f(A, B) consisting of equal letters (ex., AAAAA or BBBB) is as small as possible under the conditions above;

f(A, B) is the lexicographically smallest string satisfying the conditions above.

For example, f(2, 3) = BABAB, and f(6, 4) = AABAABAABB.

Answer Q queries: find the substring of f(A_i, B_i) from position C_i to position D_i (1-based).

Constraints

1 \leq Q \leq 10^3

1 \leq A_i, B_i \leq 5 \times 10^8

1 \leq C_i \leq D_i \leq A_i + B_i

D_i - C_i + 1 \leq 100

All input values are integers.

Partial Score

500 points will be awarded for passing the testset satisfying 1 \leq A_i, B_i \leq 10^3.

Input

Input is given from Standard Input in the following format:

Q
A_1 B_1 C_1 D_1
A_2 B_2 C_2 D_2
:
A_Q B_Q C_Q D_Q

Output

For each query i in order of input, print a line containing the substring of f(A_i, B_i) from position C_i to position D_i (1-based).

Sample Input 1

5
2 3 1 5
6 4 1 10
2 3 4 4
6 4 3 7
8 10 5 8

Sample Output 1

BABAB
AABAABAABB
A
BAABA
ABAB

Solution in Rust (1.15.1) (judge verdict: Wrong Answer)

// https://atcoder.jp/contests/agc020/tasks/agc020_d
//
#![allow(unused_imports)]
use std::io::*;
use std::fmt::*;
use std::str::*;
use std::cmp::*;
use std::collections::*;

macro_rules! input {
    (source = $s:expr, $($r:tt)*) => {
        let mut iter = $s.split_whitespace();
        input_inner!{iter, $($r)*}
    };
    ($($r:tt)*) => {
        let s = {
            use std::io::Read;
            let mut s = String::new();
            std::io::stdin().read_to_string(&mut s).unwrap();
            s
        };
        let mut iter = s.split_whitespace();
        input_inner!{iter, $($r)*}
    };
}

macro_rules! input_inner {
    ($iter:expr) => {};
    ($iter:expr, ) => {};

    ($iter:expr, $var:ident : $t:tt $($r:tt)*) => {
        let $var = read_value!($iter, $t);
        input_inner!{$iter $($r)*}
    };
}

macro_rules! read_value {
    ($iter:expr, ( $($t:tt),* )) => {
        ( $(read_value!($iter, $t)),* )
    };

    ($iter:expr, [ $t:tt ; $len:expr ]) => {
        (0..$len).map(|_| read_value!($iter, $t)).collect::<Vec<_>>()
    };

    ($iter:expr, chars) => {
        read_value!($iter, String).chars().collect::<Vec<char>>()
    };

    ($iter:expr, usize1) => {
        read_value!($iter, usize) - 1
    };

    ($iter:expr, $t:ty) => {
        $iter.next().unwrap().parse::<$t>().expect("Parse error")
    };
}

#[allow(unused_macros)]
macro_rules! debug {
    ($($a:expr),*) => {
        println!(concat!($(stringify!($a), " = {:?}, "),*), $($a),*);
    }
}


fn isok(a: usize, b: usize, d: usize, g: usize) -> bool {
    if a < d * g || b < g - 1 {
        return false;
    }
    let ta = a - d * g;
    let tb = b - (g - 1);
    (tb + ta) / (ta + 1) <= d
}

fn isa(ptn: &Vec<(usize, usize, usize)>, x: usize) -> bool {
    let mut x = x;
    for &(a, b, cur) in ptn {
        if (a + b) * cur <= x {
            x -= (a + b) * cur;
        } else {
            return x % (a + b) < a;
        }

    }
    assert!(false);
    false
}


fn solve(a: usize, b: usize, ll: usize, rr: usize, flip: bool) -> String {
    let mut ans = String::new();

    assert!(a >= b);
    let d = (a + b) / (b + 1);

    // (a..ab)
    let mut aabaa = 0;
    {
        let mut lw = 0;
        let mut hi = a+1;
        while hi - lw > 1 {
            let md = (hi + lw) / 2;
            if isok(a, b, d, md) {
                lw = md;
            } else {
                hi = md;
            }
        }
        aabaa = lw;
    }

    let mut ptn = vec![];
    if aabaa >= 2 {
        ptn.push((d, 1, aabaa-1));
    }
    ptn.push((d, 0, 1));

    let la = a - aabaa * d;
    let lb = b - (aabaa - 1);
    let lmo = lb - d * la;

    ptn.push((0, lmo, 1));
    ptn.push((1, d, la));

    if !flip {
        for x in ll-1..rr {
            if isa(&ptn, x) {
                ans += "A";
            } else {
                ans += "B";
            }
        }
    } else {
        for x in (ll-1..rr).rev() {
            if isa(&ptn, x) {
                ans += "B";
            } else {
                ans += "A";
            }
        }
    }
   ans
}

fn main() {
    input! {
        q: usize,
        queries: [(usize, usize, usize, usize); q]
    };

    for q in queries {
        if q.0 >= q.1 {
            println!("{}", solve(q.0, q.1, q.2, q.3, false));
        } else {
            let all = q.0+q.1;
            println!("{}", solve(q.1, q.0, all+1-q.3, all+1-q.2, true));
        }
    }
}