let () =
    let n = Scanf.scanf "%d\n" (fun x -> x) in
    let lst = Array.to_list (Array.init n (fun _ -> Scanf.scanf "%s\n" (fun x -> x))) in
    Printf.printf "%s\n" (List.fold_left (^) "" lst)