(letrec
             ((a(#0=
              lambda(
               c)(cond
                #1=((memv
                 c'(#\tab
                  #\return 
                   #\newline
                  #\space))#2=
                 (#3=write-char 
              c)b)(else  #2#a))))
            (b(#0#(c)(    |cond|#1#
          ((<= 97(#4=       char->ucs
        c)122)(#3#            (ucs->char
      (-(#4#c)32)              ))a)(else
    #2#a)))))(                   port-fold(
#0#(|c|p)(p|c|)                 )|b|read-char))