//Made by sonone
int parse_digit(string n) {
    if (n == "0")
        return 0;
    else if (n == "1")
        return 1;
    else if (n == "2")
        return 2;
    else if (n == "3")
        return 3;
    else if (n == "4")
        return 4;
    else if (n == "5")
        return 5;
    else if (n == "6")
        return 6;
    else if (n == "7")
        return 7;
    else if (n == "8")
        return 8;
    else if (n == "9")
        return 9;
    else
        return -1;
} 
 
bool is_int(string idk) {
    bool yes = true;
    string n;
 
    for (int i = 0; i < length(idk); ++i) {
        n = substr(idk, i, 1);
        if (parse_digit(n) == -1) {
            yes = false;
            break;
        }
    }
 
    return yes;
}
 
int parse_int(string n) {
    if (!is_int(n)) {
        return -1;
    }
    else {
        int result = 0;
        for (int i = 0; i < length(n); ++i) {
            result += parse_digit(substr(n,i,1))*10^(length(n) - i - 1);
        }
        return result;
    }
}
void draw_RLE_string(int width, string px, bool palette = false...pen[] colors) { // converts a rle string into a pixel drawing with specified demensions and color palette
    string letters = "abcdefghijklmnopqrstuvwxyz-";
    int x = 0, y = 0;
    string bit;
    int curr_int;
    int num_digits = 0;
    string color_letter = "a";
 
    for (int i = 0; i < length(px); ++i) {
        bit = substr(px, i, 1);
 
        if (is_int(bit) && num_digits == 0) {
            curr_int = parse_int(substr(px, i, 1));
            ++num_digits;
            continue;;
        }
        else if (is_int(bit)) {
            curr_int = parse_int(substr(px, i - num_digits, num_digits + 1));
            ++num_digits;
            continue;
        }
        else if (find(letters,bit) == -1) {
            continue;
        }
        else {
            num_digits = 0;
            color_letter = substr(px, i, 1);
        }
 
        for (int i = 0; i < curr_int; ++i) {
            if (x >= width) {
                x = 0;
                y -= 1;
            }
 
            if (color_letter == "-")
                fill(shift(x,y)*unitsquare, invisible);
            else
                fill(shift(x,y)*unitsquare, colors[find(letters, color_letter)]);
 
              ++x;
        }
    }
    if (palette) {
        for (int i = 0; i < colors.length; ++i) {
            label(scale(.7)*substr(letters,i,1), (i,2),2*N);
            filldraw(shift(i-.5,1.5)*scale(.8)*unitsquare, colors[i],linewidth(.3));
        }
    }
}