, compose/1 % alias for compose_right/1
, compose_right/1
, compose_left/1
+ , thread/2
]).
-spec id(A) ->
compose_left(Fs) ->
compose_given_fold(Fs, fun lists:foldl/3).
+-spec thread([fun((A) -> B)], A) ->
+ B.
+thread(Fs, X) ->
+ F = compose_left(Fs),
+ F(X).
+
%% ============================================================================