improve parser

	modified:   Parser.hs