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;;