if x.[i] = x.[j] then
  palindrome <- palindrome + x.[i].ToString()
  i <- i + 1
  j <- j - 1
else if c.[i + 1, j] > c.[i, j - 1] then
  i <- i + 1
else
  j <- j - 1