main=mapM_ print$zipWith($)(cycle[(+1),(+2),(*2)])[0..400]