let
concatenate_strings_1 = accumul_right ((
function
x, y
->
x ^ y),
""
)