main::IO()
main = do
  n:m:[]<-fmap words getLine
  let f1 ('4','7') = GT
      f1 ('7','4') = LT
      f1 (a,b) = a `compare` b
      henkan LT = m
      henkan GT = n
      cmp =(length n) `compare` (length m)

  putStrLn . henkan 
    $ if cmp /= EQ 
        then cmp
        else foldl1 mappend . map f1 $zip n m