ppStatement (RepeatStmt expr stmt)
  = (text "repeat" <+> parens (ppExpr expr)) `nestStmt` ppStatement stmt
ppStatement (RepeatStmt expr stmt)
  = (text "repeat" <+> parens (ppExpr expr)) `nestStmt` ppStatement stmt
ppStatement (RepeatStmt expr stmt)
  = (text "repeat" <+> parens (ppExpr expr)) `nestStmt` ppStatement stmt