Scanf.scanf "%s %s %c %s %s %c" (fun sa pa xa sb pb xb ->
    let la = String.length pa in
    let lb = String.length pb in
    print_endline @@
        if la < lb then sb else
        if la > lb then sa else
        if pa < pb then sb else
        if pa > pb then sa else "-1"
)