let rec my_fold_left f a l =

match l with

| [] -> a

| h :: t -> my_fold_left f (f a h) t


제발..