{--
Compile using this:

  ghc -fglasgow-exts -c A.hs && ghc -fglasgow-exts A.o Main.hs -o bug && ./bug

Bug won't happen with --make:

  rm bug; rm *.hi *.o; ghc -fglasgow-exts --make Main.hs -o bug && ./bug

Bug won't happen if everything is in one module.

--}
module Main where
	{
	import A;

	main = putStrLn f;	-- BUG: this compiles (and crashed when run, of course)
--	main = putStrLn g;	-- this correctly gives a compile-time error
	}
