ppStatement (EventControlStmt ctrl mb_stmt)
  = case mb_stmt of
      Just stmt -> ppEventControl ctrl <> char '\n' <> ppStatement stmt
      Nothing   -> ppEventControl ctrl <> semi
ppStatement (EventControlStmt ctrl mb_stmt)
  = case mb_stmt of
      Just stmt -> ppEventControl ctrl <> char '\n' <> ppStatement stmt
      Nothing   -> ppEventControl ctrl <> semi
ppStatement (EventControlStmt ctrl mb_stmt)
  = case mb_stmt of
      Just stmt -> ppEventControl ctrl <> char '\n' <> ppStatement stmt
      Nothing   -> ppEventControl ctrl <> semi