$ include "seed7_05.s7i";

const proc: showComparisons (in string: a, in string: b) is func
  begin
    writeln("compare " <& literal(a) <& " with " <& literal(b) <&":");
    writeln("a = b  returns: " <& a = b);
    writeln("a <> b returns: " <& a <> b);
    writeln("a < b  returns: " <& a < b);
    writeln("a > b  returns: " <& a > b);
    writeln("a <= b returns: " <& a <= b);
    writeln("a >= b returns: " <& a >= b);
    writeln("compare(a, b)               returns: " <& compare(a, b));
    writeln("compare(lower(a), lower(b)) returns: " <& compare(a, b));
  end func;

const proc: main is func
  begin
    showComparisons("this", "that");
    showComparisons("that", "this");
    showComparisons("THAT", "That");
    showComparisons("this", "This");
    showComparisons("this", "this");
    showComparisons("the", "there");
    showComparisons("there", "the");
  end func;