Ameba Ownd

For loop in mathematica