methodID1 :: DISPID
          -> [VarIn]
          -> ArgOut a1
          -> IDispatch i
          -> IO a1
methodID1 dispid args (varin,argres) obj = do
   p <- obj # invokeMethod dispid args [varin]
   unmarshallVariants1 argres p
methodID1 :: DISPID
          -> [VarIn]
          -> ArgOut a1
          -> IDispatch i
          -> IO a1
methodID1 dispid args (varin,argres) obj = do
   p <- obj # invokeMethod dispid args [varin]
   unmarshallVariants1 argres p
methodID1 dispid args (varin,argres) obj = do
   p <- obj # invokeMethod dispid args [varin]
   unmarshallVariants1 argres p