let lex_join x1 x2 =
{
  start_p = x1;
  end_p   = x2
}