rotation rot;

                rot = llEuler2Rot( <270.0, 0.0, 0.0> * DEG_TO_RAD );
                list LX = llParseString2List( llStringTrim(message, STRING_TRIM), ["X"], [] );
                float sizea = (float) llList2String(LX, 0);     // extract the first dimension
                float sizeb = (float) llList2String(LX, 1);     // extract the 2nd dimension
                llSetLinkPrimitiveParamsFast(LINK_ROOT,[PRIM_SIZE, <.01, sizeb + .155, sizea + .19>, PRIM_TYPE,
                            PRIM_TYPE_BOX,
                            PRIM_HOLE_DEFAULT,  // hole_shape
                            <0.00, 1.0, 0.0>,   // cut
                            .95,                // hollow
                            <0.0, 0.0, 0.0>,    // twist
                            <1.0, 1.0, 0.0>,    // top_size
                            <0.0, 0.0, 0.0>,     // top_Shear
                            PRIM_ROT_LOCAL, rot
                      ]);