module Main where

  import Concurrent

  write :: Char-> IO ()
  write c = putChar c >> write c

  main :: IO ()
  main = forkIO (write 'X') >> write 'O'