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