sanitize (x:xs) ifp ofp = withRandomTempFile $ \tmp -> sanitize1 x ifp tmp >> sanitize xs tmp ofp
sanitize (x:xs) ifp ofp = withRandomTempFile $ \tmp -> sanitize1 x ifp tmp >> sanitize xs tmp ofp
sanitize (x:xs) ifp ofp = withRandomTempFile $ \tmp -> sanitize1 x ifp tmp >> sanitize xs tmp ofp