path: root/testsuite/tests/perf/compiler/T4007.hs

module T4007 where

f :: IO ()
f = sequence_ (replicate 10 (putStrLn "yes"))