import Data.List

main = getLine >>= print . length . nub . solve

solve [] = [[]]
solve s = concat [left, right] where
    left    = map ((head s) :) $ solve (tail s)
    right   = map ((last s) :) $ solve (init s)