subset CzechString of String;
multi sub infix:<cmp>(CzechString $a, CzechString $b) {
  # sort logic here
}