MODULE Test;

IMPORT Out;

TYPE
  Name = ARRAY 16 OF CHAR;

VAR
  key : ARRAY 128 OF Name;
  name : Name;

BEGIN
  IF name > name THEN Out.Ln; END;
END Test.