MISHA.ML   

<

^

>


                                            open
                                          String
                                        ;;00  ;;
                                      let     a=
                                    Sys       .
                                  argv       ;;
                                 let         (*
                               /*)          rec
                              (*            *)
                            r(*             !!
                           *)              s=
                         let               n=
                        (*~               mu
                       ne                 ge
                     gai                 n'
                    ma'                  na
                   si                   ri
                  te                   ,*)                                      length(
                 s)                    in                                if(n>0)then(let
                x=                    get                          s(n-1)in         if(
               ' '                   ==                      x||('\t'              ==x
              ))                    (*~                 *)then(r                  )(
             sub                  s(0              )(n-1))                     else
            s)                  else           s;;type                        t=S
           (*;                *)of         string                            |EE
           ;;               let          (*;~                              *)y
          =(             stdin         );;                               let
          z=           (input_line);;let                               rec
         l(          i)=         match                              (try
         S(                        z                            i)with
       _->EE                                         )with S x->[x]
      @l( i                                 )|_->[];;let w=
    Array                               .length(a)
   ;;0                                          ;;
  let                                            d=
  l(                                              if
 (w                                               <2
 ||                                               a.
(1)                                               =(
"-"                                               ))
then                                       y(*   /*)
else                                       (*y  .05
 ^_^                                            12
 koge                                          02
  donbo                                      .*)
   open_in      a.(                         (1)
       ));;     let                      o=if
        w<3(**)                      then stdout
           else(*@_@*)         open_out       a.(2
                 );;List.iter(fun x             (*;
                /^^                            E!
                AP!                           SY
                +LP                          ^^/
                'TW                         :)'
                 IK\                       *)
                 ->(   output_string)o((r x)
                  ^"\n"))d;;

  NFO RAR ZIP DETAILS /
2016-11-24