1.16: Actual Generated Code For Guttman-Rosler Transform

sub {
	my $rec_ind = 0 ;

	return  @_[
	    map unpack( 'N', substr( $_, -4 ) ), 
	    sort
	    map pack( "Z*A8N",
		do{ my( $val ) = m((?-xism:^foo(\w+))) ; ( $val ) },
		do{ my ($val) = m((?-xism:(\d+)$)) ;  reverse( pack( 'd', $val ) ) ^
					( $val < 0 ? "\xFF\xFF\xFF\xFF\xFF\xFF\xFF\xFF" : "\x80" )
		 },
		$rec_ind++
	    ), @_
        ] ;
}