inoutMaybe :: Variant a => ArgInOut (Maybe a) (Maybe a)
inoutMaybe o       = (inMaybe o,resMaybe)
inoutMaybe :: Variant a => ArgInOut (Maybe a) (Maybe a)
inoutMaybe o       = (inMaybe o,resMaybe)
inoutMaybe o       = (inMaybe o,resMaybe)