Module foo { Import Fmt; Type { S = Shape 2,32768; } Var { P1,P2,P3: int / S; sum: int; } Proc main [] { sum := 0; Over S { P1 := 1; P2 := 2; P3 := P1 + P2; Fmt.Printf("The sum in one element is %d.\n", [0][1]p3); sum += p3; Fmt.Printf("The sum of all elements is %d.\n", sum); } } }