Test code 'Type Safe Higher-order abstract syntax'