The <a href="Bastet/Array/Functor/index.html"><code>Bastet.Array.Functor</code></a> from the earlier example</li><li><p>The <a href="Bastet/List/Functor/index.html"><code>Bastet.List.Functor</code></a></p><pre><code class="ml"># let id x = x;;
val id : 'a -&gt; 'a = &lt;fun&gt;

# let compose f g x = f (g x);;
val compose : ('a -&gt; 'b) -&gt; ('c -&gt; 'a) -&gt; 'c -&gt; 'b = &lt;fun&gt;

# let satisfies_identity = List.map id [1; 2; 3] = [1; 2; 3];;
val satisfies_identity : bool = true

# let satisfies_co