9 lines
197 B
Plaintext
9 lines
197 B
Plaintext
$newline never
|
|
$case bonusRule
|
|
$of ExamNoBonus
|
|
_{MsgExamNoBonus'}
|
|
$of ExamBonusPoints ps False
|
|
_{MsgExamBonusPoints ps}
|
|
$of ExamBonusPoints ps True
|
|
_{MsgExamBonusPointsPassed ps}
|