>>15 GNU Smalltalk
| p |
p := [:x | x printNl].
p value: (p value: (p value: 1) + 1) + 1

http://ideone.com/PKb532

--

Squeak Smalltalk
| p |
Transcript open.
p := [:x | Transcript showln: x. x].
p value: (p value: (p value: 1) + 1) + 1