let from_file s =
  try from_channel (open_in s)
  with Sys_error s -> failwith s