ppStatement (DelayStmt delay mb_stmt)
  = ppDelay delay <+> maybe semi ppStatement mb_stmt
ppStatement (DelayStmt delay mb_stmt)
  = ppDelay delay <+> maybe semi ppStatement mb_stmt
ppStatement (DelayStmt delay mb_stmt)
  = ppDelay delay <+> maybe semi ppStatement mb_stmt