process' (Free (RollbackAction n)) = do c <- ask
                                        liftIO $ rollback c 
                                        process n
process' (Free (RollbackAction n)) = do c <- ask
                                        liftIO $ rollback c 
                                        process n
process' (Free (RollbackAction n)) = do c <- ask
                                        liftIO $ rollback c 
                                        process n