ppStatement (WaitStmt expr stmt)
  = (text "wait" <+> parens (ppExpr expr)) `nestStmt` maybe semi ppStatement stmt
ppStatement (WaitStmt expr stmt)
  = (text "wait" <+> parens (ppExpr expr)) `nestStmt` maybe semi ppStatement stmt
ppStatement (WaitStmt expr stmt)
  = (text "wait" <+> parens (ppExpr expr)) `nestStmt` maybe semi ppStatement stmt