Scanf.scanf "%s %s" (fun o e ->
    let n = String.length o + String.length e in
    for i = 0 to n - 1 do
        print_char @@ if i mod 2 = 0 then o.[i / 2] else e.[i / 2]
    done;
    print_newline ()
)