import Data.List(sort, nub)

sig 1 = [ "e", "p" ]
sig n = sort . nub . concatMap (\w -> [ 'e':w, 'p':w, w ]) $ sig (n-1)

main = print (sig 4) >> print (sig 7)