let apply = \(f, x) -> f (x)
let id = \x -> x
let test = print_string (apply (id, "This test is OK.\n"))