let doIt () =
    let S = stdin.ReadLine ()

    seq S |> Seq.rev |> Seq.map (function | '>' -> '<' | _ -> '>') |>
    fun sseq -> System.String.Join ("", sseq) |> printfn "%s"

doIt ()