ppStatement (ForeverStmt stmt)
  = text "forever" `nestStmt` ppStatement stmt
ppStatement (ForeverStmt stmt)
  = text "forever" `nestStmt` ppStatement stmt
ppStatement (ForeverStmt stmt)
  = text "forever" `nestStmt` ppStatement stmt