(bind-func multi_replace_all
(lambda (s:String* pairs)
(let ((res (map (lambda (x:List{String*}*)
(set! s (replace_all (cstring s)
(cstring (nth x 0))
(cstring (nth x 1))))
1:i64)
pairs)))
s)))