improve compiler output a little bit

	modified:   Compiler.hs