import Control.Applicative
import Control.Monad.Fix

main = mapM_ print$fix$(<$>)<$>(:)<*>((<$>((:[])<$>))(=<<)<$>(*)<$>(>>=)(+)($))$1