let _ =
  try
    let lexbuf = Lexing.from_channel stdin in
    let result = ToString_yacc.line ToString_lex.token lexbuf in
      Printf.printf"Résultat: %s\n" result
  with ToString_lex.Eof ->
    exit 0