(import (ssc3))

(ssc3i->string
 (transform-lambda
  '(lambda () 1)))			; => "{ \n1; \n}"

(ssc3i->string
 (transform-lambda
  '(lambda (a) (+ a 1))))		; => "{\narg a; \n(a+1); \n}"

(ssc3i->string
 (transform-lambda
  '(lambda (a)
     (for side-effect)
     (+ a 1))))