Tiny example of how to use OO in Progress 4GL.