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