sub apply_patterns {
    $_->( $_[0] ) for @all_patterns[ @_[ 1 .. $#_ ] ];
}