Fix precedence when parenthesizing heads

Just set this to 670, as it looks like this is the value that
Mathematica uses.