method6 :: Member 
        -> [VarIn]
        -> ArgOut a1 -> ArgOut a2 -> ArgOut a3 
        -> ArgOut a4 -> ArgOut a5 -> ArgOut a6
        -> IDispatch i
        -> IO (a1,a2,a3,a4,a5,a6)
method6 member args argout1 argout2 argout3 argout4 argout5 argout6 obj = do
    dispid <- obj # getMemberID member
    catchMethError member $
      methodID6 dispid args argout1 argout2 argout3
                            argout4 argout5 argout6 obj
method6 :: Member 
        -> [VarIn]
        -> ArgOut a1 -> ArgOut a2 -> ArgOut a3 
        -> ArgOut a4 -> ArgOut a5 -> ArgOut a6
        -> IDispatch i
        -> IO (a1,a2,a3,a4,a5,a6)
method6 member args argout1 argout2 argout3 argout4 argout5 argout6 obj = do
    dispid <- obj # getMemberID member
    catchMethError member $
      methodID6 dispid args argout1 argout2 argout3
                            argout4 argout5 argout6 obj
method6 member args argout1 argout2 argout3 argout4 argout5 argout6 obj = do
    dispid <- obj # getMemberID member
    catchMethError member $
      methodID6 dispid args argout1 argout2 argout3
                            argout4 argout5 argout6 obj