ppAssignmentControl (RepeatControl e ctrl)
  = text "repear" <> parens (ppExpr e) <+> ppEventControl ctrl
ppAssignmentControl (RepeatControl e ctrl)
  = text "repear" <> parens (ppExpr e) <+> ppEventControl ctrl
ppAssignmentControl (RepeatControl e ctrl)
  = text "repear" <> parens (ppExpr e) <+> ppEventControl ctrl