hs{-# LANGUAGE RankNTypes #-} foo' :: (forall a. [a] -> Int) -> Int runST :: (forall s. ST s a) -> a f4 :: Int -> (forall a. a -> a)
forall