import sets

let S = readLine stdin
var sOutSet = initSet[string]()


proc dfs(sIn, sOut: string) =
  if sIn == "":
    incl sOutSet, sOut
    return

  dfs(sIn[1 .. ^1], sOut & sIn[0])
  dfs(sIn[0 .. ^2], sOut & sIn[^1])


dfs(S, "")
echo sOutSet.len