import Control.Applicative
import Data.Function

main = print $ fix$(<$>)<$>(:)<*>((<$>((:[{-$%@!#!^#-}])<$>))(=<<)<$>(*)<$>(*2))$1