main=mapM_ print$scanl f 1 [1..50]
f n x=n*x+(-1)^x