import GHC.Conc

main :: IO ()
main = setNumCapabilities 0