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