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