sub string {
	return $_[0] cmp $_[1];
}

sub numerical {
	return $_[0] <=> $_[1];
}