let x = [1;2;3]

let f x = 1 :: 2 :: 3 :: x

let _ =
  if x = f [] then print_string "OK " else print_string "failed! ";
  if stdout <> stderr then print_string "OK" else print_string "failed!";
  print_newline()