[ InfixCheckLineSpaced wa wl i force altered;
  for (i = 1 : i <= parse->1 : i++)
  {   wa = WordAddress(i);
      wl = WordLength(i);
      if (wl > 3 && wa->0==''' && wa->(wl-1)==''')
      {   wa->(wl-1) = ' ';
          if (wa->(wl-2) == '/' && wa->(wl-3) == '/')
          {   wa->(wl-2) = ' ';
              wa->(wl-3) = ' ';
          }
          LTI_Insert(wa-buffer, ''');
          LTI_Insert(wa-buffer + 2, ' ');
          altered = true; break;
      }
  }
  for (i = 2 : i < buffer->1 + 2: i++)
  {   force = false;
      if (buffer->i=='-' && buffer->(i+1)=='-' && buffer->(i+2)=='>')
          force = true;
      if (force)
      {   if (i>2 && buffer->(i-1)~=' ')
          {   LTI_Insert(i++, ' '); altered = true;
          }
          if (buffer->(i+3)~=' ')
          {   LTI_Insert(i+3, ' '); i++; altered = true;
          }
          i = i + 2; continue;
      }

      if (buffer->i==':' && buffer->(i+1)==':') force = true;
      if (buffer->i=='-' && buffer->(i+1)=='>') force = true;
      if (buffer->i=='.' && buffer->(i+1)=='&')
      {   buffer->i = ']'; force = true;
      }
      if (buffer->i=='.' && buffer->(i+1)=='#')
      {   buffer->i = ']'; force = true;
      }
      if (buffer->i==']' && buffer->(i+1)=='&') force = true;
      if (buffer->i==']' && buffer->(i+1)=='#') force = true;
      if (buffer->i=='+' && buffer->(i+1)=='+') force = true;
      if (buffer->i=='-' && buffer->(i+1)=='-') force = true;
      if (buffer->i=='&' && buffer->(i+1)=='&') force = true;
      if (buffer->i=='|' && buffer->(i+1)=='|') force = true;
      if (buffer->i=='~' && buffer->(i+1)=='~') force = true;

      if (buffer->i=='=' && buffer->(i+1)=='=') force = true;
      if (buffer->i=='~' && buffer->(i+1)=='=') force = true;
      if (buffer->i=='>' && buffer->(i+1)=='=') force = true;
      if (buffer->i=='<' && buffer->(i+1)=='=') force = true;
      if (buffer->i=='#' && buffer->(i+1)=='#') force = true;

      if (force)
      {   if (i>2 && buffer->(i-1)~=' ')
          {   LTI_Insert(i++, ' '); altered = true;
          }
          if (buffer->(i+2)~=' ')
          {   LTI_Insert(i+2, ' '); i++; altered = true;
          }
          i = i + 1; continue;
      }

      if (buffer->i=='+') force = true;
      if (buffer->i=='-') force = true;
      if (buffer->i=='*') force = true;
      if (buffer->i=='/') force = true;
      if (buffer->i=='%') force = true;
      if (buffer->i=='(') force = true;
      if (buffer->i==')') force = true;
      if (buffer->i=='<' && buffer->(i-1)~=';') force = true;
      if (buffer->i=='>') force = true;
      if (buffer->i==',') force = true;
      if (buffer->i=='.') force = true;
      if (buffer->i=='&') force = true;
      if (buffer->i=='|') force = true;
      if (buffer->i=='~') force = true;
      if (buffer->i=='=') force = true;
      if (force)
      {   if (i>2 && buffer->(i-1)~=' ')
          {   LTI_Insert(i++, ' '); altered = true;
          }
          if (buffer->(i+1)~=' ')
          {   LTI_Insert(i+1, ' '); i++; altered = true;
          }
      }
  }
  for (i = 2 : i < buffer->1 + 2: i++)
      if (buffer->i == '~') { buffer->i = '['; altered = true; }
  return altered;
];