method x()
  x := x < x < x;
end;