rtabResult :: 
       (RTable, RTuplesRet)  -- ^ input pair 
    -> RTabResult -- ^ output Writer Monad
rtabResult (rtab, rtupRet) = writer (rtab, rtupRet)
rtabResult :: 
       (RTable, RTuplesRet)  -- ^ input pair 
    -> RTabResult
rtabResult (rtab, rtupRet) = writer (rtab, rtupRet)
rtabResult (rtab, rtupRet) = writer (rtab, rtupRet)