import Control.Applicative
import Data.Char
main = do
  l <- getLine
  let (a:b:[]) = map read $ words l :: [Char]
  print $ solve (ord a) (ord b)

solve :: Int -> Int -> Char
solve a b
  | a == b    = 'H'
  | otherwise = 'D'