{ %FAIL } program toperator63; operator < (left, right: ShortString) res : Boolean; begin end; begin end.