Add support for for-loops

Add support to inject progress updates in for loops. For reasons explained in , it's impossible to support:

```r
for (x in xs) {
sqrt(x)
} |> progressify()
```

but should be able to support:

```r
( for (x in xs) {
sqrt(x)
} ) |> progressify()
```

and

```r
{ for (x in xs) {
sqrt(x)
} } |> progressify()
```

We can also support it without pipes;

```r
progressify(for (x in xs) {
sqrt(x)
})
```

まず、既存の progressify 実装と、パイプされた式および関数呼び出しの処理方法を特定します。括弧付きおよび波括弧付きの for ループに加えて、progressify(for (...) {...}) のカバレッジを追加し、明示的に除外されているラップされていない pipe 形式をサポートせずに、それぞれの形式が進捗更新を出力することを確認します。

索引モデルが issue の本文から書いたものです。