/# Rosetta Code problem: https://rosettacode.org/wiki/String_comparison
by Galileo, 11/2022 #/

include ..\Utilitys.pmt

"Pete" >ps

"pete" tps == if "The strings are equal" ? endif
"pete" tps != if "The strings are not equal" ? endif
tps "pete" < if ( tps " is lexically first" ) lprint nl endif
tps "pete" > if ( tps " is lexically last" ) lprint nl endif
tps upper "pete" upper == if "case insensitive match" ? endif
ps> lower "pete" find if "petes in there somewhere" ? endif