(value-of
<<((f 4) 3)>> [f=(proc-val (procedure x <<proc (y) -(x,y)>> ρ₁))]ρ₁)
=
(value-of <<-(x,y)>> [y=3][x=4]ρ₁)
= 1
(value-of <<(f 4)>> [f=(proc-val (procedure x <<proc (y) -(x,y)>> ρ₁))]ρ₁)
=
(proc-val (procedure y <<-(x,y)>> [x=4]ρ₁))
(value-of 𝑟𝑎𝑡𝑜𝑟 ρ₁) = (proc-val (procedure 𝑣𝑎𝑟 𝑏𝑜𝑑𝑦 ρ₂))
(value-of 𝑟𝑎𝑛𝑑 ρ₁) = 𝑣𝑎𝑙
----------------------------------------------------------------
(value-of (call-exp 𝑟𝑎𝑡𝑜𝑟 𝑟𝑎𝑛𝑑) ρ₁) = (value-of 𝑏𝑜𝑑𝑦 [𝑣𝑎𝑟=𝑣𝑎𝑙]ρ₂)