module Main (main) where

import Control.Concurrent (forkOS, threadDelay)
import System.Posix.Signals

infinistr s = putStrLn s >> threadDelay 10
infinistr_ s = putStrLn s >> infinistr_ s

handler = do
  forkOS (infinistr "child")
  installHandler sigTERM Default Nothing
  return ()

main = do
  installHandler sigTERM (Catch handler) Nothing
  infinistr_ "main"