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