||:: insert one two three four
  :: insert one two four five
  :: insert two three four five
  :: insert two four three five
  :: search for one two * *
  :: filter for two * * five



|:#############################################:|
|: TONY STARK WAS ABLE TO BUILD THIS IN A CAVE :|
|:            WITH A BOX OF QUADS              :|
|:#############################################:|

||:@quad.wildcard: *

|:@quad.operation: insert :@quad.pattern: $1 $2 $3 $4|
    :@quad.data: $1 $2 $3 $4

|:@quad.operation: remove :@quad.found: :@quad.data: $1 $2 $3 $4|
    :@quad.operation: reset
|:@quad.operation: remove?|
    :@quad.operation: seek

|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $  $  $  $  :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $  $  $  $4 :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $  $  $3 $  :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $  $  $3 $4 :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $  $2 $  $  :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $  $2 $  $4 :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $  $2 $3 $  :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $  $2 $3 $4 :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $1 $  $  $  :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $1 $  $  $4 :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $1 $  $3 $  :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $1 $  $3 $4 :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $1 $2 $  $  :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $1 $2 $  $4 :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $1 $2 $3 $  :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $1 $2 $3 $4 :@quad.data: $1 $2 $3 $4?| :@quad.found:
|:@quad.operation: seek :@quad.wildcard: $? :@quad.pattern: $1 $2 $3 $4 :@quad.empty:?|
|:@quad.operation: seek? :@quad.wildcard: $?|
    :@quad.operation: next

|:@quad.operation: reset :@quad.start:|
|:@quad.operation: reset?|
    :@quad.operation: previous

|:@quad.operation: next :@quad.data: $1 $2 $3 $4|
    :@quad.seen: $1 $2 $3 $4
|:@quad.operation: next|
    :@quad.empty:

|:@quad.operation: previous :@quad.seen: $1 $2 $3 $4|
    :@quad.data: $1 $2 $3 $4
|:@quad.operation: previous|
    :@quad.start:




|:##################:|
|:   But doctor.    :|
|: I AM TONY STARK. :|
|:##################:|

|:: insert $1 $2 $3 $4|
    :@quad.operation: insert
    :@quad.pattern: $1 $2 $3 $4

|:: remove $1 $2 $3 $4|
    :@quad.operation: remove
    :@quad.pattern: $1 $2 $3 $4

|:: search for $1 $2 $3 $4 :@quad.empty:|
    :not found:
|:: search for $1 $2 $3 $4 :@quad.found: :@quad.data: $A $B $C $D?|
    :found: $A $B $C $D
    :@quad.operation: reset
|:: search for $1 $2 $3 $4?|
    :@quad.operation: seek
    :@quad.pattern: $1 $2 $3 $4

|:: filter for $1 $2 $3 $4 :@quad.empty:|
    :@quad.operation: reset
|:: filter for $1 $2 $3 $4? :@quad.found: :@quad.data: $A $B $C $D?|
    :@quad.operation: (next seek)
    :@quad.pattern: $1 $2 $3 $4
    :found: $A $B $C $D
|:: filter for $1 $2 $3 $4?|
    :@quad.operation: seek
    :@quad.pattern: $1 $2 $3 $4