-module(glitch@extended@function_ext).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch]).

-export([compose/2, constant/1]).

-spec compose(fun((UQY) -> UQZ), fun((UQZ) -> URA)) -> fun((UQY) -> URA).
compose(Fun1, Fun2) ->
    fun(A) -> Fun2(Fun1(A)) end.

-spec constant(URB) -> fun((any()) -> URB).
constant(Value) ->
    fun(_) -> Value end.