process' (Free (Associate2 pks t n)) = do c <- ask
                                          liftIO $ c <~~ (pks, t)
                                          process n
process' (Free (Associate2 pks t n)) = do c <- ask
                                          liftIO $ c <~~ (pks, t)
                                          process n
process' (Free (Associate2 pks t n)) = do c <- ask
                                          liftIO $ c <~~ (pks, t)
                                          process n