cmpthese(-3, {
    grt => sub { GRT($s) },
    st  => sub { ST($s) }
});