Yoneda as CPS transformer

cps.js

const yoneda = f => cont => a => cont(f(a))
const cpsTransform = yoneda

const f = x => x + 1
const g = x => x * 2

const apply = (g, f) => x => g(f(x))

/*
apply(cpsTransform(f), cpsTransform(g))(cont)
== cpsTransform(f)(cpsTransform(g)(cont))
== cpsTransform(f)(b => cont(g(b)))
== (cont1 => a => cont1(f(a)))(b => cont(g(b)))
== a => (b => cont(g(b)))(f(a))
== a => cont(g(f(a)))
== a => cont(apply(g, f)(a))
*/

const assert = require('assert')
apply(cpsTransform(f), cpsTransform(g))(x => assert.equal(x, apply(g, f)(1)))(1)