Scheme: What better way to spend the time of your lunch-break at work than solving mbp's Scheme-challenge? I can't think of any, so here's my stab:

-- (define (f s)
  (lambda (g)
    (if (equal? s "")
	(let ((t (g (lambda (h) ""))))
	  (if (equal? t "")
	      ""
	      (g (f ""))))
	(string-append
	 (string-head s 1)
	 (g (f (string-tail s 1)))))))
f
-- ((f "Js nte ceeWnae")(f "utAohrShm anbe"))
"Just Another Scheme Wannabee"

Wonder if not there's a nicer way of doing that then-branch?

And, now back to my regularly scheduled work.