--
-- Concurrent Haskell for beginners 
--
-- Compile this with
--     ghc -o simple -package concurrent simple.hs

import Concurrent

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

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