{-# LANGUAGE OverloadedStrings #-}

import           Data.Bool
import           Data.Maybe
import qualified Data.ByteString.Char8 as B

main :: IO ()
main = solve <$> getParams >>= B.putStrLn

getParams :: IO [Int]
getParams = readInts <$> B.getLine

readInts :: B.ByteString -> [Int]
readInts = map readInt . B.words

readInt :: B.ByteString -> Int
readInt = fst . fromJust . B.readInt

solve :: [Int] -> B.ByteString
solve = bool "bust" "win" . (<= 21) . sum
