module Main where

import qualified Data.ByteString.Char8 as BS
import Data.Char
import Data.String
import Data.List
import Data.Maybe
import Control.Monad

main :: IO ()
main = do
  ls <- map (fst . fromJust . BS.readInt) . BS.words <$> BS.getLine
  putStrLn $ solve ls

solve :: [Int] -> String
solve [a, b, c, d]
  | a > c = "null"
  | a < c = "tRue"
  | a == c = janken b d

janken :: Int -> Int -> String
janken b d
  | b == d = "Draw"
  | b == 0 && d == 1 || b == 1 && d == 2 || b == 2 && d == 0 = "null"
  | otherwise = "tRue"
