module Error = Error
module Syn = Syn
let parse input =
let lexbuf = Lexing.from_string input ~with_positions:true in
try Parser.modl Lexer.read lexbuf
with Parser.Error -> Error.raise_syntax_error "bad syntax"