open Camlp4.PreCast

type foo = Bar | Baz
with sexp

let l = __LOCATION__ in

Printf.printf "file_name = %s\n" (Loc.file_name l);