_{MsgSubmission}	#{display cid} $maybe Entity _ User{..} <- corrector
_{MsgRatingBy}	#{display userDisplayName} $maybe time <- submissionRatingTime
_{MsgRatingTime}	#{display time} $maybe points <- submissionRatingPoints $case sheetType $of Bonus{..}
_{MsgAchievedBonusPoints}	_{MsgAchievedOf points maxPoints} $of Normal{..}
_{MsgAchievedNormalPoints}	_{MsgAchievedOf points maxPoints} $of Pass{..}
_{MsgPassedResult}	$if points >= passingPoints _{MsgPassed} $else _{MsgNotPassed}
_{MsgAchievedPassPoints}	_{MsgPassAchievedOf points passingPoints maxPoints} $of NotGraded $maybe comment <- ratingComment
_{MsgRatingComment}	#{comment}