t = gets.to_i
good = "good"
prob = "problem"
glen = good.length
plen = prob.length
t.times do
    str = gets.strip
    n = str.length - plen - glen + 1
    a = Array.new
    b = Array.new
    n.times do |i|
        ac = 0
        bc = 0
        glen.times do |j|
            ac += 1 if str[i + j] == good[j]
        end
        plen.times do |j|
            bc += 1 if str[i + j + glen] == prob[j]
        end
        a.push(ac)
        b.push(bc)
    end
    max = 0
    a.length.times do |i|
        i.upto(b.length - 1) do |j|
            k = a[i] + b[j]
            if k > max
                max = k
            end
        end
    end
    puts plen + glen - max
end