quine.bon

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], [])