(bind-func replace (lambda (orig:String* rep:i8* with:String*) (replace:[String*,i8*,i8*,i8*]* (cstring orig) rep (cstring with))))