let compose_functions = function 
  lx -> (accumul_right (compose, (function x -> x))) (lx)