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