package other;
sub backwards ($$) { $_[1] cmp $_[0] }  # from perlfunc