let lambda : ('a repr -> 'b repr) -> ('-> 'b) repr = fun f ->
    Lambda f