diff --git a/examples/test.modal b/examples/test.modal
index 187b964..aefdb2d 100644
--- a/examples/test.modal
+++ b/examples/test.modal
@@ -1,5 +1,3 @@
-<> (?x dup) (?x ?x)
-<> (?x ?y swap) (?y ?x)
-<> ( ?x pop) ()
+<> ((eval ?x)) (?x)
 
-(1 2 3) (4 5 6) swap pop dup
\ No newline at end of file
+(eval (<> (join (?x) (?y)) (?x ?y))) (join (foo) (bar))
\ No newline at end of file
diff --git a/src/modal.c b/src/modal.c
index 51c749e..9840135 100644
--- a/src/modal.c
+++ b/src/modal.c
@@ -154,7 +154,7 @@ rewrite(char *incoming)
 	while((c = *p)) {
 		int i;
 		if(p[0] == '<' && p[1] == '>') {
-			p = addrule(p) + 1;
+			p = addrule(p);
 			while((*outp_++ = *p++))
 				;
 			save(-1);