static LS tok_moveWordToWhitespace(S word, LS tok) {
  tok = cloneList(tok);
  for (int i = 1; i < l(tok); i += 2)
    if (eqic(get(tok, i), word)) {
      replaceSubList(tok, i-1, i+2, ll(joinSubList(tok, i-1, i+2)));
      i -= 2;
    }
  ret tok;
}