779バイトの Lazy K コードなんて誰が読めるんだ

anarchy golf - Up and Down が回答公開なんですが、779 バイトの Lazy K ソースが公開されていても訳がわからんだろうということで、元となったソースを公開します。

(load "./lazier.scm")
(load "./print-as-golf.scm")
(load "./prelude.scm")
(load "./prelude-numbers.scm")

(lazy-def 'nl '(s s(s s(s s)(s s(k i)))o)) ; 改行コード 10
(lazy-def '(nextline self str)
          '(if< nl (car str) (self (cdr str)) (cdr str)))
(lazy-def '(updown self nxtln str in)
          '(if> 256 (car in) (self nxtln (Y ud str in) (nxtln in)) str))
(lazy-def '(ud self str c)
          '(cons (((car c) rot4 get3 (k 256) 1+ i 1-)(car str))
                 (self (cdr str) (cdr c))))
(lazy-def '(1- n) '(nth n (cons 1 (list-from 0))))
(lazy-def '(rot4 f a b c d) '(f b c d a))
(lazy-def '(get3 a b c d) '(c))
(print-as-golf (laze '((lambda(nxtln in)(Y updown nxtln in (nxtln in)))
                       (Y nextline))))