TBS STL #array

@ TBS STL: #array;
include_begin;
@ prints an array so it can easily be read;
#array_print(?target) {
    ?i = 0;
    ?size = !sizeof(>target);
    size =~ !str(size);
    !out(~"Array(", ~size, ~") = (\n");
    _while(i < size) {
        i =~ !str(i);
        !out(~"    [", ~i, ~"] = ", ~target[i], ~"\n");
        i = i + 1;
    }
    !out(~");\n");
    :0;
};
@ implodes an array of strings to a string;
#array_implode(?target, ?between) {
    ?result;
    ?i = 0;
    ?size = !sizeof(>target);
    _while(i < size) {
        _if(i == size - 1) {
            result =~ result + target[i];
        } _else {
            result =~ result + target[i] + between;
        }
        i = i + 1;
    }
    :~result;
};
include_end;