move process in try_pools_active to Haskell