let conv_test (j: int) (k: int) = j + k

let main (i: int) : int = conv_test i 10

let partial (a: int) (b: int) : int = a + b

let mk_partial (j: int) : (int -> int) = partial j

let partial_apply (i: int) : int = (mk_partial 10) i