process' (Free (CommitAction n)) = do c <- ask
                                      liftIO $ commit c 
                                      process n
process' (Free (CommitAction n)) = do c <- ask
                                      liftIO $ commit c 
                                      process n
process' (Free (CommitAction n)) = do c <- ask
                                      liftIO $ commit c 
                                      process n