main=mapM print$scanl(#)1[1..50]
a#b=a*b+(-1)^a