S = gets.chomp.chars
N = S.size

nums = Array.new(N + 1, 0)

(0).upto(N - 1) do |idx|
  if S[idx] == '<'
    nums[idx + 1] = [nums[idx + 1], nums[idx] + 1].max
  end
end

(N - 1).downto(0) do |idx|
  if S[idx] == '>'
    nums[idx] = [nums[idx],  nums[idx + 1] + 1].max
  end
end

puts nums.inject(:+)
