Imperative block passed as lazy argument is evaluated more than once

Code to reproduce:

```
foo ~value =
    if value.is_error then Panic.throw value.catch else value

main =
    foo <|
        IO.println "hey"
```

Expected:
```
hey
```

Actual:
```
hey
hey
```