(* -*- tuareg -*- *)

let () =
  let ocaml_major, ocaml_minor =
    Scanf.sscanf Sys.argv.(1) "%u.%u" (fun a b -> (a, b))
  in
  let file =
    if ocaml_major > 4 || ocaml_major = 4 && ocaml_minor >= 8 then
      "printers_ge_408.ml"
    else
      "printers_lt_408.ml"
  in
  let channel = open_in file in
  try
    while true do
      print_endline (input_line channel)
    done
  with End_of_file ->
    close_in_noerr channel
