> On 16 Oct 2000, Julian Assange wrote:
> 
> You could try something like:
> 
> let build_transformer f x =
>     List.concat (List.map f x)
> 
> let (>>) t1 t2 x =
>     t1 (t2 x)

The problem with this is that it builds an intermediary list at each stage,
before handing it to the next. The function that I used does not.

Cheers,
Julian.