if it is a problem to use [wrap], this should also work:

[bang(
|
[f 100]x[+ 1]
|
[mod 200]
|
[- 100]
|
[abs]