string printListItem(list l, integer i) {
    integer type = llGetListEntryType(l, i);
    if (type == TYPE_INTEGER ) return (string)    llList2Integer(l, i);
    if (type == TYPE_FLOAT   ) return (string)    llList2Float  (l, i);
    if (type == TYPE_STRING  ) return      "\"" + llList2String (l, i) + "\"";
    if (type == TYPE_KEY     ) return "(key)\"" + llList2String (l, i) + "\"";
    if (type == TYPE_VECTOR  ) return (string)    llList2Vector (l, i);
    if (type == TYPE_ROTATION) return (string)    llList2Rot    (l, i);
    return "";
}

string printList (list l) {
    integer len = llGetListLength(l);
    if (len == 0) return "[]";
    string s = "[" + printListItem(l, 0);
    integer i;
    for (i = 1; i < len; i++) s += ", " + printListItem(l, i);
    return s + "]";
}