process' (Free (LastInsert n)) = do c <- ask
                                    l <- liftIO $ queryLastInsert c 
                                    process (n l)
process' (Free (LastInsert n)) = do c <- ask
                                    l <- liftIO $ queryLastInsert c 
                                    process (n l)
process' (Free (LastInsert n)) = do c <- ask
                                    l <- liftIO $ queryLastInsert c 
                                    process (n l)