diff --git a/euclid.tal b/euclid.tal
index 9d1d758..4277124 100644
--- a/euclid.tal
+++ b/euclid.tal
@@ -1,6 +1,7 @@
 ( the beginnings of a euclidian sequencer thing )
 
 %RTN { JMP2r }
+%MOD  { DUP2 DIV MUL SUB } 
 
 ( devices )
 
@@ -47,8 +48,14 @@ BRK
 
 @on-tick 
 	&run
+	.cycle LDZ #01 ADD .cycle STZ
 	#40 .Audio0/pitch DEO
-	
+	.cycle LDZ #05 MOD #00 NEQ ,&clockup JCN
+	#4c .Audio1/pitch DEO
+	&clockup
+	.cycle LDZ #10 NEQ ,&end JCN
+	#00 .cycle STZ
+	&end
 RTN
 
 @square [ ff 00 ]
\ No newline at end of file