Text this: Using Modula-2 :