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"