RosettaCodeData/Task/Closures-Value-capture/M2000-Interpreter/closures-value-capture-1.m2000

Dim Base 0, A(10)
For i=0 to 9 {
      a(i)=lambda i -> i**2
}
For i=0 to 9 {
      Print a(i)()
}