Add a propertiesOf method to the object module that returns the names of things that look like getter messages

#{
	value <- 42
	main <- {
		foo <- {
			bar <- {value}
			bar:
		}
		print: (string: (foo: ))
	}
}