llGetPrimitiveParams([PRIM_PHANTOM, PRIM_TYPE, PRIM_COLOR, ALL_SIDES]);

// note that it will not show the actual constants, but instead their values
[FALSE, // not phantom
// next the type of prim and the hole shape, as well as the parameters:
// vector cut, float hollow, vector twist, vector topsize, vector topshear
PRIM_TYPE_PRISM, PRIM_HOLE_DEFAULT, <0.0, 1.0, 0.0>, 0.0, <0.0, 0.0, 0.0>, <0.0, 0.0, 0.0>, <0.0, 0.0, 0.0>,
<0.000000, 0.250980, 1.000000>, 1.000000, // pairs of: vector color, float alpha
<0.000000, 0.250980, 1.000000>, 1.000000, // one for each side of the prim
<0.000000, 0.250980, 1.000000>, 1.000000, // because the query had ALL_SIDES as face
<0.000000, 0.250980, 1.000000>, 1.000000,
<0.000000, 0.250980, 1.000000>, 1.000000]

// get the prim type and everything that defines its form, except the scale
list params = llGetPrimitiveParams([PRIM_TYPE]);

// use this to restore the prim type and form (except scale)
llSetPrimitiveParams([PRIM_TYPE] + params);

list GetPrimitiveParams(list input)
{
    list output;
    integer c = (output != input);//same as -llGetListLength(input);
    if(c)
    {
        list t = output;
        list special = [PRIM_BUMP_SHINY, PRIM_COLOR, PRIM_TEXTURE, PRIM_FULLBRIGHT, PRIM_TEXGEN];
        do
        {
            integer flag = llList2Integer(input, c); //peak the stack
            if(~llListFindList(special, [flag]))
            {
                if(++c)//adjust stack position, make sure it's valid.
                {
                    integer side = llList2Integer(input, c); //peak the stack
                    if(side == ALL_SIDES)
                    {
                        side = llGetNumberOfSides();
                        do
                            output += t + llGetPrimitiveParams(t = [flag, --side]);
                        while(side); //we return the sides in reverse order, easier to code; runs faster.
                    }
                    else
                        output += t + llGetPrimitiveParams(t = [flag, side]);
                    jump test;//by using a jump here we speed the code up a bit.
                }
                llOwnerSay("malformed input");
                jump end;
            }//else //not needed because of jumps.
            output += flag + llGetPrimitiveParams([flag]);
            @test;
        }while(++c);//adjust stack position, make sure it's valid.
    }
    @end;
    return output;
}//Writen by Strife Onizuka