programa {

funcao inicio() {
              cadeia a = "mustache"
              cadeia b = "mostacheh"
              escreva(editDist(a,b,comprimento(a), comprimento(b)))
            }
        
            funcao inteiro editDist(cadeia str1 , cadeia str2 , inteiro m ,inteiro n) {
              inteiro l = m + 1
              inteiro c = n + 1
              inteiro i, j
              inteiro mat[l][c]
              para(i = 0; i <= m; i = i + 1 ) {
                para(j = 0; j <= n; j = j + 1) {
                  se (i==0) {
                    mat[i][j] = j
                  } senao se (j == 0) {
                    mat[i][j] = i
                  } senao se (char_at(str1, i-1) == char_at(str2, j-1)) {
                    mat[i][j] = mat[i-1][j-1]
                  } senao {
                    mat[i][j] = 1 + Matematica.minimo({mat[i][j-1], mat[i-1][j], mat[i-1][j-1]})
                  }
                }
              }
              retorne mat[m][n]
            }
        
          }