def solve(i, j, str)
    if i == j
        $h[str + $s[i]] = true
        return
    end
    s1 = $s[i] + str
    s2 = $s[j] + str
    solve(i + 1, j, s1)
    solve(i, j - 1, s2)
end
$s = gets.strip
$h = Hash.new
solve(0, $s.length - 1, "")
puts $h.length