1.14: Actual Generated Code For Orcish Maneuver

sub {
	
	my ( %or_cache1,%or_cache2 ) ;

	
	sort {
	(
	  ( $or_cache1{$a} ||=
		do{ my ($val) = map { m((?-xism:^foo(\w+))) } $a ; $val } )
			cmp
	  ( $or_cache1{$b} ||=
		do{ my ($val) = map { m((?-xism:^foo(\w+))) } $b ; $val } )
	)
		||
	(
	  ( $or_cache2{$a} ||=
		do{ my ($val) = map { m((?-xism:(\d+)$)) } $a ; $val } )
			<=>
	  ( $or_cache2{$b} ||=
		do{ my ($val) = map { m((?-xism:(\d+)$)) } $b ; $val } )
	)

	} @_  ;
}