10 lines
278 B
Text
10 lines
278 B
Text
import Utils
|
|
|
|
procedure main(A)
|
|
mult := multiplier(get(A),get(A)) # first 2 args define function
|
|
every write(mult(!A)) # remaining are passed to new function
|
|
end
|
|
|
|
procedure multiplier(n1,n2)
|
|
return makeProc { repeat inVal := n1 * n2 * (inVal@&source)[1] }
|
|
end
|