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