25 lines
442 B
Text
25 lines
442 B
Text
let is_alpha c =
|
|
c >= 'a' && c <= 'z' ||
|
|
c >= 'A' && c <= 'Z'
|
|
|
|
let rec odd () =
|
|
let c = input_char stdin in
|
|
if is_alpha c
|
|
then (let e = odd () in print_char c; e)
|
|
else (c)
|
|
|
|
let rec even () =
|
|
let c = input_char stdin in
|
|
if is_alpha c
|
|
then (print_char c; even ())
|
|
else print_char c
|
|
|
|
let rev_odd_words () =
|
|
while true do
|
|
even ();
|
|
print_char (odd ())
|
|
done
|
|
|
|
let () =
|
|
try rev_odd_words ()
|
|
with End_of_file -> ()
|