gistfile1.el

    (defun _ch_ (to_s_aM_ get_out_b_ outc_c_ outs_d_ flush_e_ k_f_ fmt_g_)
     var out_C_=(caml_call_gen1_i_ get_out_b_,fmt_g_);
      (defun outs_aj_ (s_a_)(return (caml_call_gen2_m_ outs_d_,out_C_,s_a_)))
      (defun pr_aN_ (k_a_ n_b_ fmt_l_ v_aO_)
       var len_j_=(fmt_l_.getLen );
        (defun doprn_D_ (n_n_ i_b_)
         var i_p_=i_b_;
          for(;;)
           (progn (if (<= len_j_ i_p_) 
             (return (caml_call_gen1_i_ k_a_,out_C_)))
            var _d_=(fmt_l_.safeGet i_p_);
            (if (=== 37 _d_) 
             (progn var
               get_arg_o_=
                (lambda (spec_a_ n_b_)
                 (return (caml_array_get_k_
                           v_aO_,(get_index_cg_ spec_a_,n_b_)))),
               scan_flags_az_=
                (lambda (spec_g_ n_f_ widths_c_ i_d_)
                 var i_a_=i_d_;
                  for(;;)
                   (progn var _ab_=(| (- (fmt_l_.safeGet i_a_) 32) 0);
                    (if (! (|| (< _ab_ 0) (< 25 _ab_))) 
                     (case _ab_
                      (1 )
                       (2 )
                       (4 )
                       (5 )