let
error_invalid_syntax f line s =
"File "
^f^
": syntax error line "
^(string_of_int line)^
": "
^s