Stream composition

combine_streams.h

static void(^stream_composition_demo)(void) = ^{
    typedef typeof(unsigned long)              predicate;
    typedef typeof(predicate(^)(predicate))    predicate_function;
    typedef typeof(predicate(^(*))(predicate)) predicate_function_t;
    
    typeof(predicate_function)   stream_op;
    typeof(predicate_function_t) stream_op_t = &stream_op;
    
    typeof(predicate_function)   predicate_op;
    typeof(predicate_function_t) predicate_op_t = &predicate_op;
    predicate_op = ^ predicate (predicate p) {
        printf("\t\tpredicate\n");
        return (unsigned long)(((unsigned long)nil ^ p) && (*predicate_op_t)(~-p));
    };
    
    typeof(predicate_function)   function_op;
    typeof(predicate_function_t) function_op_t = &function_op;
    function_op = ^ predicate (predicate p) {
        printf("function\n");
        return (unsigned long)(((unsigned long)nil ^ (*predicate_op_t)(p)));
    };
    
    stream_op = ^ (typeof(predicate_function_t) func, typeof(predicate_function_t) pred) {
        __block predicate_function_t operation = pred;
        return ^ predicate (predicate p) {
            return (*(typeof(predicate_function_t))((operation = (predicate_function_t)(void *)(uintptr_t)((uintptr_t)(pred) ^ (uintptr_t)(func) ^ (uintptr_t)(operation)))))(p);
        };
    }(function_op_t, predicate_op_t);
    
    stream_op(5UL);
};