process' (Free (Dissociate pot pok n)) = do c <- ask
                                            liftIO $ c <~/> (pot, pok)
                                            process n
process' (Free (Dissociate pot pok n)) = do c <- ask
                                            liftIO $ c <~/> (pot, pok)
                                            process n
process' (Free (Dissociate pot pok n)) = do c <- ask
                                            liftIO $ c <~/> (pot, pok)
                                            process n