Variable: combobulate-ocaml-procedures-sibling

((:activation-nodes
  ((:nodes ("tuple_expression" "tuple_pattern") :position in))
  :selector (:choose node :match-siblings t))
 (:activation-nodes
  ((:nodes ("tuple_expression" "tuple_pattern") :position at))
  :selector (:choose node :match-children t))
 (:activation-nodes
  ((:nodes ("let_binding") :position at :has-parent
	   ("value_definition"))
   (:nodes ("value_definition") :position at :has-parent
	   ("let_expression"))
   (:nodes ("application_expression") :position at :has-parent
	   ("sequence_expression"))
   (:nodes ("item_attribute") :position at))
  :selector (:choose parent :match-children t))
 (:activation-nodes
  ((:nodes ("application_expression" "fun_expression") :position in))
  :selector (:choose node :match-children t))
 (:activation-nodes
  ((:nodes ((rule "_type") (rule "_simple_type")) :position at
	   :has-parent ("function_type")))
  :selector
  (:choose parent :match-children
	   (:match-rules ((rule "_type") (rule "_simple_type")))))
 (:activation-nodes
  ((:nodes ("type_variable") :position at :has-parent
	   ("constructed_type")))
  :selector (:choose parent :match-children t))
 (:activation-nodes
  ((:nodes ("type_constructor_path") :position at :has-parent
	   ("constructed_type")))
  :selector (:choose parent :match-siblings t))
 (:activation-nodes
  ((:nodes
    ("then_clause" "else_clause" "value_path" "value_name"
     "constructor_path" (rule "_simple_expression"))
    :position at :has-parent ("if_expression")))
  :selector
  (:choose parent :match-children
	   (:match-rules
	    ((rule "_sequence_expression") (rule "_simple_expression")
	     "then_clause" "else_clause"))))
 (:activation-nodes
  ((:nodes
    ("labeled_tuple_element_type" "labeled_tuple_element"
     "labeled_tuple_element_pattern" "match_expression")
    :position at))
  :selector (:choose parent :match-children t))
 (:activation-nodes
  ((:nodes ("external") :has-parent ((irule "external")) :position at))
  :selector (:choose node :match-siblings t))
 (:activation-nodes
  ((:nodes ("type_binding") :has-parent ("type_definition") :position
	   at))
  :selector (:choose parent :match-children t))
 (:activation-nodes ((:nodes ("constructor_pattern"))) :selector
		    (:choose parent :match-siblings t))
 (:activation-nodes ((:nodes ("match_case") :position at)) :selector
		    (:choose node :match-siblings
			     (:match-rules ("match_case"))))
 (:activation-nodes ((:nodes ("field_get_expression"))) :selector
		    (:choose node :match-siblings t))
 (:activation-nodes
  ((:nodes ("parameter") :position at :has-parent ("let_binding")))
  :selector (:choose node :match-siblings t))
 (:activation-nodes
  ((:nodes
    ("variant_declaration" "record_declaration" "list_expression"
     "cons_expression" "field_get_expression" "function_type"
     "tuple_pattern" "value_pattern" "tuple_expression"
     "infix_expression" "application_expression")
    :position in))
  :selector (:choose node :match-children t))
 (:activation-nodes
  ((:nodes ("type_binding") :has-sibling ("type_binding"))
   (:nodes ("let_binding") :has-sibling ("let_binding")))
  :selector (:choose node :match-siblings t))
 (:activation-nodes
  ((:nodes ("value_definition" "value_pattern" "let_expression")
	   :position at :has-parent
	   ("let_expression" "let_open_expression")))
  :selector (:choose parent :match-children t))
 (:activation-nodes
  ((:nodes ("field_expression") :has-parent ("record_expression")))
  :selector (:choose node :match-siblings t))
 (:activation-nodes
  ((:nodes
    ("instance_variable_definition" "method_definition"
     "method_specification")))
  :selector (:choose node :match-siblings t))
 (:activation-nodes
  ((:nodes ("let_expression" "let_open_expression"))) :selector
  (:choose node :match-children
	   (:match-rules
	    ("let_expression" "let_open_expression"
	     "application_expression"))))
 (:activation-nodes ((:nodes ("if_expression" "else_clause")))
		    :selector
		    (:choose node :match-children
			     (:match-rules
			      ("else_clause" "if_expression"))))
 (:activation-nodes
  ((:nodes
    ("type_variable" "parameter" "value_path" "add_operator"
     "mult_operator" "pow_operator" "rel_operator" "concat_operator"
     "or_operator" "and_operator" "assign_operator" "infix_expression"
     "type_constructor_path" "field_declaration" "tag_specification"
     "match_case" "field_expression" "application_expression")
    :position at)
   (:nodes ((rule "signature") (rule "structure")) :has-ancestor
	   ("module_definition")))
  :selector (:choose node :match-siblings t))
 (:activation-nodes
  ((:nodes (("type_binding")) :has-parent ("type_definition")
	   :position in))
  :selector (:choose node :match-children t))
 (:activation-nodes
  ((:nodes
    ("signature" "structure" "module_name" "module_path"
     "module_type_constraint")
    :position at :has-ancestor
    ("module_definition" "module_type_definition" "package_expression"))
   (:nodes
    ("comment" "field_declaration" "function_expression"
     (rule "function_type") (rule "attribute_payload")
     (rule "record_expression") (rule "object_expression")
     (rule "constructor_declaration") (rule "class_binding")
     (rule "class_application") (rule "type_binding")
     (rule "structure") (rule "signature")
     (rule "_class_field_specification") (rule "_sequence_expression")
     (rule "_signature_item") (rule "_structure_item"))
    :position at))
  :selector
  (:choose node :match-siblings (:discard-rules ("attribute"))))
 (:activation-nodes ((:nodes ((rule "compilation_unit")))) :selector
		    (:choose node :match-children t)))