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

readInts :: IO [Int]
readInts = map (fst . fromJust . BS.readInt) . BS.words <$> BS.getLine

main = do
  nums <- readInts
  putStrLn $ solve nums

solve (a:b:c:_)
  | a + b + c >= 22 = "bust"
  | otherwise = "win"
