propertySet_4 name a1 a2 a3 a4  = propertySet name [inVariant a1, inVariant a2,
                                                    inVariant a3, inVariant a4]
propertySet_4 name a1 a2 a3 a4  = propertySet name [inVariant a1, inVariant a2,
                                                    inVariant a3, inVariant a4]
propertySet_4 name a1 a2 a3 a4  = propertySet name [inVariant a1, inVariant a2,
                                                    inVariant a3, inVariant a4]