begin
  integerfn sigma(integerfn x(integer param), integer low, integer high)
    integer result = 0;
    cycle
      result = result + x(low)
      low = low+1
    repeat until low>high
    result = result
  end

  integerfn square(integer n)
    result = n*n
  end

  write(sigma(square, 1, 5), 0)

endofprogram