Scanf.scanf "%s" (fun s ->
    let n = String.length s in
    for i = 0 to n - 1 do
        match s.[n - 1 - i] with
        | '<' -> print_char '>'
        | _   -> print_char '<'
    done;
    print_newline ()
)