import Control.Monad
import Data.Set (size, fromList)

main = getLine >>= print . size . fromList . yokuaru

yokuaru [] = [[]]
yokuaru s = do
 (c:cs) <- sequence [id,reverse] s
 map (c :) (yokuaru cs)