pavone@266: #{
pavone@266: 	main <- {
pavone@270: 		o <- #{
pavone@270: 			foo <- 42
pavone@270: 			bar <- 39
pavone@270: 			doStuff <- :blah {
pavone@270: 				foo <- bar * blah
pavone@270: 				foo
pavone@270: 			}
pavone@270: 			qux <- { 1337 }
pavone@270: 			+ <- :right {
pavone@270: 				foo + right
pavone@270: 			}
pavone@270: 		}
pavone@270: 		print: (string: (object does: o understand?: "+")) . "\n"
pavone@270: 		print: (string: (object does: o understand?: "foobar")) . "\n"
pavone@270: 		print: (string: (object sendMessage: "qux" to: o)) . "\n"
pavone@270: 		print: "Messages understood:\n"
pavone@270: 		foreach: (object understoodBy: o) :idx el{
pavone@266: 			print: el . "\n"
pavone@266: 		}
pavone@270: 		print: "\nProperties of:\n"
pavone@270: 		foreach: (object propertiesOf: o) :idx el{
pavone@270: 			print: el . "\n"
pavone@270: 		}
pavone@266: 		0
pavone@266: 	}
pavone@266: }