diff --git a/coxeter.c b/old/coxeter.c
similarity index 100%
rename from coxeter.c
rename to old/coxeter.c
diff --git a/coxeter.h b/old/coxeter.h
similarity index 100%
rename from coxeter.h
rename to old/coxeter.h
diff --git a/old/test.c b/old/test.c
new file mode 100644
index 0000000..61b8a57
--- /dev/null
+++ b/old/test.c
@@ -0,0 +1,41 @@
+#include <stdio.h>
+
+#include "weyl.h"
+
+static void print_element(weylgroup_element_t *e)
+{
+  if(e->wordlength == 0)
+    printf("1");
+  else
+    for(int j = 0; j < e->wordlength; j++)
+      printf("%c", e->word[j] + 'a');
+}
+
+int main()
+{
+  semisimple_type_t type;
+  simple_type_t t;
+  type.n = 1;
+  type.factors = &t;
+  t.series = 'A';
+  t.rank = 3;
+
+  int order = weyl_order(type);
+  doublequotient_t *dq = weyl_generate_bruhat(type, 0x02, 0x03);
+
+  for(int i = 0; i < dq->count; i++) {
+    print_element(dq->cosets[i].min);
+    printf(" -> ");
+    for(doublecoset_list_t *current = dq->cosets[i].bruhat_lower; current; current = current->next) {
+      print_element(current->to->min);
+      printf(" ");
+    }
+    printf("| ");
+    print_element(dq->cosets[i].opposite->min);
+    printf("\n");
+  }
+
+  weyl_destroy_bruhat(dq);
+
+  return 0;
+}