process' (Free (Search t s n)) = do c <- ask
                                    v <- liftIO $ c ~> (t,s) 
                                    v' <- mapM (return . unsqlizeST t) (groupSql t v)
                                    process (n v')
process' (Free (Search t s n)) = do c <- ask
                                    v <- liftIO $ c ~> (t,s) 
                                    v' <- mapM (return . unsqlizeST t) (groupSql t v)
                                    process (n v')
process' (Free (Search t s n)) = do c <- ask
                                    v <- liftIO $ c ~> (t,s) 
                                    v' <- mapM (return . unsqlizeST t) (groupSql t v)
                                    process (n v')