function1 :: Member
          -> [VarIn]
          -> ArgOut a1
          -> IDispatch i
          -> IO a1
function1 member args argout obj = do
   dispid <- obj # getMemberID member
   catchMethError member (functionID1 dispid args argout obj)
function1 :: Member
          -> [VarIn]
          -> ArgOut a1
          -> IDispatch i
          -> IO a1
function1 member args argout obj = do
   dispid <- obj # getMemberID member
   catchMethError member (functionID1 dispid args argout obj)
function1 member args argout obj = do
   dispid <- obj # getMemberID member
   catchMethError member (functionID1 dispid args argout obj)