RosettaCodeData/Task/Runtime-evaluation-In-an-environment/SNOBOL4/runtime-evaluation-in-an-environment-2.sno

     compiled = code(' define("triple()") :(a);triple triple = 3 * x :(return)')  :<compiled>
a    x = 1
     first = triple(x)
     x = 3
     output = triple(x) - first
end