{-# OPTIONS_GHC -dsuppress-all -dno-suppress-type-signatures -dsuppress-uniques -dppr-case-as-let #-}

import Control.Concurrent
import Data.Foldable

main = 
  for_ [1 .. 10] $ \ _ ->
    print =<< forkIO (pure ())