write( sum{A.value, 1, 100, 1.0/A.value} )
...
procedure sum(X)
...
    every @X[1] := @X[2] to @X[3] do
        temp +:= @^X[4]