sensHtEdesc :: Sentence
sensHtEdesc = foldlSent [
  atStart sensHeat :+: S "ing occurs as long as the material does not reach a",
  phrase temp, S "where a", phrase phaseChange, S "occurs. A", phrase phaseChange,
  S "occurs if" +:+. (E (sy temp $= sy boilPt) `sOr` E (sy temp $= sy meltPt)),
  S "If this is the case" `sC` S "refer to", makeRef2S latentHtE]
sensHtEdesc :: Sentence
sensHtEdesc = foldlSent [
  atStart sensHeat :+: S "ing occurs as long as the material does not reach a",
  phrase temp, S "where a", phrase phaseChange, S "occurs. A", phrase phaseChange,
  S "occurs if" +:+. (E (sy temp $= sy boilPt) `sOr` E (sy temp $= sy meltPt)),
  S "If this is the case" `sC` S "refer to", makeRef2S latentHtE]
sensHtEdesc = foldlSent [
  atStart sensHeat :+: S "ing occurs as long as the material does not reach a",
  phrase temp, S "where a", phrase phaseChange, S "occurs. A", phrase phaseChange,
  S "occurs if" +:+. (E (sy temp $= sy boilPt) `sOr` E (sy temp $= sy meltPt)),
  S "If this is the case" `sC` S "refer to", makeRef2S latentHtE]