Quine in Bon

Author: makenowjust

README.md

@@ -15,7 +15,7 @@ I have three policies:
 Languages
 ---
 
-Now, implemented in 262 programming languages!
+Now, implemented in 263 programming languages!
 
 <details>
   <summary>Languages List</summary>
@@ -282,6 +282,7 @@ Now, implemented in 262 programming languages!
   - [Konoha](https://github.com/konoha-project/konoha3)
   - [Pyret](https://www.pyret.org)
   - [Phix](http://phix.x10.mx)
+  - [Bon](https://github.com/FBMachine/bon)
 
 </details>
 

quine.bon

@@ -0,0 +1,10 @@
+cdef putchar(ch:int) -> int;
+
+def loop(xs, ys)
+  match xs
+    [] => print("loop(" ++ list_to_string(ys) ++ ", [])")
+    x :: xs => loop(xs, ys ++ [putchar(x)])
+  end
+end
+
+loop([99, 100, 101, 102, 32, 112, 117, 116, 99, 104, 97, 114, 40, 99, 104, 58, 105, 110, 116, 41, 32, 45, 62, 32, 105, 110, 116, 59, 10, 10, 100, 101, 102, 32, 108, 111, 111, 112, 40, 120, 115, 44, 32, 121, 115, 41, 10, 32, 32, 109, 97, 116, 99, 104, 32, 120, 115, 10, 32, 32, 32, 32, 91, 93, 32, 61, 62, 32, 112, 114, 105, 110, 116, 40, 34, 108, 111, 111, 112, 40, 34, 32, 43, 43, 32, 108, 105, 115, 116, 95, 116, 111, 95, 115, 116, 114, 105, 110, 103, 40, 121, 115, 41, 32, 43, 43, 32, 34, 44, 32, 91, 93, 41, 34, 41, 10, 32, 32, 32, 32, 120, 32, 58, 58, 32, 120, 115, 32, 61, 62, 32, 108, 111, 111, 112, 40, 120, 115, 44, 32, 121, 115, 32, 43, 43, 32, 91, 112, 117, 116, 99, 104, 97, 114, 40, 120, 41, 93, 41, 10, 32, 32, 101, 110, 100, 10, 101, 110, 100, 10, 10], [])