inoutSafeArray  :: (Variant a) => ArgInOut (SafeArray a) (SafeArray a)
inoutSafeArray d          = (inSafeArray d,resSafeArray)
inoutSafeArray  :: (Variant a) => ArgInOut (SafeArray a) (SafeArray a)
inoutSafeArray d          = (inSafeArray d,resSafeArray)
inoutSafeArray d          = (inSafeArray d,resSafeArray)