An Anton van Straaten sig:
; breaking the Perl lock on cryptic .sigs: (list->string(call-with-current-continuation(lambda(x)(let*((z(map(lambda (c)(reverse(cons c(call-with-current-continuation(lambda(k)(list k 0)))))) (string->list "patsonm")))(i(apply max(map car z)))(cs(cddr(assoc i z)))(xs (append(string->list(case i((4)"ul")((5)"@")((6)"i")((12)"c.")((15)(x cs)) (else "")))cs))(k(cadr(list-ref(map(lambda(i)(list-ref z i))(list 3 0 4 1 2 5 4 4 5 2 3 5 4 1 6))i))))(k `(,@xs ,k ,(+ i 1)))))))
pitecus' sig:
gosh -bE "print (map (cut number->string <> 36) '(18 806564\ 1714020422))" -Eexit
call/cc fun:
(let* ((yin ((lambda (foo) (newline) foo)
(call/cc call/cc)))
(yang ((lambda (bar) (write-char #\*) bar)
(call/cc call/cc))))
(yin yang))