An example of a 4GL is what