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