QuineOCaml

                (
               let
              s,f="
             +o{n}(6
            7hi#NmUu#
           ##)l`fhb#Rw
          }hif)hwd}#+S}
         hiwa)u##s}hiwa-
        $06r_i$0;r_i$08r$
       r_-/-u#-+--odw--r/a
      <_--r:ati#b,9b92=!+u(
     <ntwstw^mxwd#rwgntw+a+a
    #b*0(((r(",(lxor)74in Obj
   .magic String.iter (Printf.
  printf"%17s\n%18s\n%19s%s\","
 "(""let""s,f=\""s;fun c->c>32&(
)=output_byte stdout(f(f c+1)))s)