array<integer> F_nextFree188
integer F_firstFree882
integer F_maxIndex184
array<integer> F_typeId673
array<integer> Cell_nextFree248
integer Cell_firstFree174
integer Cell_maxIndex322
array<integer> Cell_typeId937
array<any> Cell_elem207


integer F_firstFree882 = 0
integer F_maxIndex184 = 0
integer Cell_firstFree174 = 0
integer Cell_maxIndex322 = 0


function initGlobals761() { 
}


function main173() { 
    initGlobals761();
    init_test673();
}


function config137() { 
}


function init_test673() { 
    local integer a192
    local integer this176
    local real this170
    a_192 = new_Cell228(5);
    if (F_firstFree_882 == 0) {
        if (F_maxIndex_184 < 32768) {
            F_maxIndex_184 = (F_maxIndex_184 + 1);
            this_176 = F_maxIndex_184;
            F_typeId_673[this_176] = 3;
        } else {
            error258("Out of memory: Could not create F_map_test.");
            this_176 = 0;
        };
    } else {
        F_firstFree_882 = (F_firstFree_882 - 1);
        this_176 = F_nextFree_188[F_firstFree_882];
        F_typeId_673[this_176] = 3;
    };
    if (Cell_typeId_937[a_192] == 0) {
        if (a_192 == 0) {
            error258("Nullpointer exception when calling Cell.map");
        } else {
            error258("Called Cell.map on invalid object.");
        };
    } else {
    };
    a_192 = new_Cell228(dispatch_F_test_F_apply160(this_176, Cell_elem_207[a_192]));
    if (Cell_typeId_937[a_192] == 0) {
        if (a_192 == 0) {
            error258("Nullpointer exception when calling Cell.get");
        } else {
            error258("Called Cell.get on invalid object.");
        };
    } else {
    };
    this_170 = (Cell_elem_207[a_192] / 1000.);
    if (this_170 == 50.) {
        testSuccess209();
    } else {
        println185(R2S894(this_170));
    };
}


IS_NATIVE IS_EXTERN @extern function R2I152(real r908) returns integer { 
}


IS_NATIVE function testSuccess209() { 
}


IS_NATIVE IS_EXTERN @extern function R2S894(real r140) returns string { 
}


IS_NATIVE function println185(string s141) { 
}


function new_Cell228(any t174) returns integer { 
    local integer this199
    if (Cell_firstFree_174 == 0) {
        if (Cell_maxIndex_322 < 32768) {
            Cell_maxIndex_322 = (Cell_maxIndex_322 + 1);
            this_199 = Cell_maxIndex_322;
            Cell_typeId_937[this_199] = 1;
        } else {
            error258("Out of memory: Could not create Cell.");
            this_199 = 0;
        };
    } else {
        Cell_firstFree_174 = (Cell_firstFree_174 - 1);
        this_199 = Cell_nextFree_248[Cell_firstFree_174];
        Cell_typeId_937[this_199] = 1;
    };
    Cell_elem_207[this_199] = t_174;
    return this_199;
}


function error258(string msg938) { 
    $debugPrint916((msg_938 + ("
" + #getStackTrace())));
}


function dispatch_F_test_F_apply160(integer this768, any a108) returns any { 
    if (F_typeId_673[this_768] == 0) {
        if (this_768 == 0) {
            error258("Nullpointer exception when calling F.apply");
        } else {
            error258("Called F.apply on invalid object.");
        };
    } else {
    };
    return R2I152(((a_108 * 10.) * 1000.));
}