I have used Emacs since 1986 or so, daily since 1989 (with smaller breaks while working at companies where it was not available). I had no idea this exists.<p>Here is my first CCL program.<p><pre><code> (define-ccl-program hw
'(1
(loop
(write r0 [72 101 108 111])
(r1 += 1)
(if (r1 == 3) (repeat) ())
(r0 += 1)
(if (r0 < 4) (repeat) (break))
)
)
)
(ccl-execute-on-string
'hw
[0 0 0 0 0 0 0 0 1] "")
</code></pre>
Tested in *scratch* buffer, worked. Probably not very idiomatic...