Update Grammar.hs