open System type Sol() = member this.Solve() = let s = stdin.ReadLine() Console.WriteLine( new string ( (s |> Seq.map (fun c -> if c = '<' then '>' else '<')) |> Seq.rev |> Seq.toArray ) ) let mySol = new Sol() mySol.Solve()