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 | / | |
| 2023-03-27 | |||||