let id x = x
let s = Scanf.scanf "%s\n" id
let l = (String.length s) / 2 + (String.length s) mod 2
let array = Array.init l (fun x -> s.[2*x]) 

let () = Array.iter (fun x -> Printf.printf "%c" x) array