HST Observations of the Globular Cluster M4