-module(prog).
-export([main/0]).
param([],_,A) -> lists:
reverse(A); param([H|T],X,A) -> param(T,X,[H(X)|A]).
param(Y,X) -> param(Y,X,[]).
main() ->
io:
format("~p~n",[param([fun lists:
sum/1,fun length/1,fun lists:
max/1] ,[1,2,5,3])]).
LW1vZHVsZShwcm9nKS4KLWV4cG9ydChbbWFpbi8wXSkuCgpwYXJhbShbXSxfLEEpIC0+IGxpc3RzOnJldmVyc2UoQSk7CnBhcmFtKFtIfFRdLFgsQSkgLT4gcGFyYW0oVCxYLFtIKFgpfEFdKS4KCnBhcmFtKFksWCkgLT4gcGFyYW0oWSxYLFtdKS4KCgptYWluKCkgLT4KCWlvOmZvcm1hdCgifnB+biIsW3BhcmFtKFtmdW4gbGlzdHM6c3VtLzEsZnVuIGxlbmd0aC8xLGZ1biBsaXN0czptYXgvMV0gLFsxLDIsNSwzXSldKS4=