1 files changed, 11 insertions(+), 2 deletions(-)

M src/ornithologics.tal

@@ 8,7 8,7 @@
 		;z ;cons JSR2
 			;y ;cons JSR2
 				;x ;cons JSR2
-					;c ;cons JSR2
+					;b ;cons JSR2
 	;step JSR2
 	;echo JSR2
 


@@ 58,6 58,13 @@ JMP2r
 
 JMP2r
 
+@nest ( list* -- list* )
+
+	LDA2k STH2 ,pop JSR
+	;nil JSR2 STH2r ,cons JSR ,cons JSR
+
+JMP2r
+
 @echo ( list* -- )
 
 	#2818 DEO #2018 DEO


@@ 146,7 153,9 @@ JMP2r
 
 @bluebird ( list* -- list* )
 
-	( TODO )
+	LDA2k STH2 ;pop JSR2 LDA2k STH2 ;pop JSR2 LDA2k STH2 ;pop JSR2
+	;nil JSR2 ;nil JSR2 
+	STH2r ;cons JSR2 ;cons JSR2 STH2r ;cons JSR2 ;cons JSR2 STH2r ;cons JSR2 
 
 JMP2r