program Dragon
// Input:    None
// Output:   Prints out (inifinite) sequence of turns to produce dragon curve
// Remarks:  left = 0, right = anything else
// -----------------------------------------------------------------------------

10: 7101   R[1] <- 0001                   
11: 7201   R[2] <- 0001    
12: 2321   R[3] <- R[2] - R[1]           
13: 4423   R[4] <- R[2] ^ R[3]           
14: 1541   R[5] <- R[4] + R[1]           
15: 3552   R[5] <- R[5] & R[2]               
16: 95FF   write R[5]                          
17: 1221   R[2] <- R[2] + R[1]               
18: D112   if (R[1] > 0) goto 12