Action:

| | recursively bind "inc" to (closure abstraction of 
| | | | | rebind
| | | | moreover 
| | | | | bind "n" to the given datum
| | | hence 
| | | | | | give (the datum bound to "n")
| | | | | and 
| | | | | | give 1
| | | | then 
| | | | | give (sum ( (the given integer # 1) , (the given integer # 2) ))
| | )
| before 
| | | | give 10
| | | and 
| | | | allocate a cell
| | then 
| | | | bind "x" to the given cell # 2
| | | and 
| | | | store (the given datum # 1) in (the given cell # 2)
hence 
| | | give (the datum stored in (the cell bound to "x"))
| | then 
| | | enact (application (the abstraction bound to "inc") to (the given datum))
| then 
| | store (the given datum) in (the cell bound to "x")

The above action is the meaning of the following Specimen program:

program inc1 =
fun inc n : int -> int = n + 1;
var x : int := 10
in
x := inc (x)
end