let () =
    let a, b = Scanf.scanf "%s %s\n" (fun a b -> a, b) in 
    Printf.printf "%s %s\n" b a