import System.Random
import qualified Data.List as L
import qualified Data.Map as Map
 
randIO :: Int -> Int -> IO Int
randIO x y = randomRIO (x, y) :: IO Int
 
fact 0 = 1
fact n = fact(n-1) * n
 
--母音表
vowels :: Int -> [String] -> [String] -> IO [String]
vowels kinds vows void = do --母音の種類と母音表と空のリスト
    select <- randIO 1 (length vows)
    select2 <- randIO 1 (length vows)
    vowslength <- randIO 1 2 --二重母音までにしました。疲れたので三重母音とか言わないで、てか日本語話者は使えないよ
    if kinds == length void
        then return void
        else if kinds > length void && vowslength == 1 && notElem (vows!!(select-1)) void
            then vowels kinds vows ((vows!!(select-1)):void)
        else if kinds > length void && vowslength == 2 && notElem ((vows!!(select-1))++(vows!!(select2-1))) void && (vows!!(select-1)) /= (vows!!(select2-1))
            then vowels kinds vows (((vows!!(select-1))++(vows!!(select2-1))):void)
        else vowels kinds vows void
 
--子音表
consonants :: Int -> [String] -> [String] -> IO [String]
consonants kinds con void = do
    select <- randIO 1 (length con)
    if kinds == length void
        then return void
        else if kinds > length void && notElem (con!!(select-1)) void
           then consonants kinds con ((con!!(select-1)):void)
        else consonants kinds con void
 
--音節構造自動生成器(ランダム)
sylgen :: Int -> [String] -> IO [String]
sylgen maxsyllable void = do
    let symbol = ["C", "V"]
    select <- randIO 0 1
    if length void == 0
        then do
            max <- randIO 1 maxsyllable --音節構造の大きさの範囲を指定するとこ
            sylgen max ((symbol!!select):void)
        else if (length (head void)) == maxsyllable then syl maxsyllable void
            else if (head void)!!0 == 'V' then sylgen maxsyllable ((init (head (((symbol!!0) ++ head void):(init void)))):(init void))
            else case select of
                    0 -> sylgen maxsyllable (((symbol!!0) ++ head void):(init void))
                    1 -> sylgen maxsyllable (((symbol!!1) ++ head void):(init void))
 
syl :: Int -> [String] -> IO [String]
syl maxsyllable input = if (elem 'V' (input!!(length input - 1)) && elem 'C' (input!!(length input - 1))) || elem 'V' (input!!(length input -1)) then return input else sylgen maxsyllable []
 
sylsets :: Int -> Int -> [String] -> IO [String]
sylsets kinds maxsyllable void = do
        sylgen <- sylgen maxsyllable []
        if length void == kinds then return void
            else if notElem (head sylgen) void then sylsets kinds maxsyllable (sylgen ++ void)
            else sylsets kinds (maxsyllable+1) void
 
--単語の雛形
 
prewordgen :: Int -> [String] -> [String] -> IO [String]
prewordgen syllableculster syllable void = do
    select <- randIO 1 (length syllable)
    if length void == 0 then prewordgen syllableculster syllable (syllable!!(select-1):void)
        else if length void == syllableculster then preword void []
        else prewordgen syllableculster syllable (syllable!!(select-1):void)
 
preword :: [String] -> [String] -> IO [String]
preword input output = if length input == 0 then return output
                    else if length output == 0 then preword (tail input) ((head input):output) else preword (tail input) ((head output ++ head input):(init output))
 
prewordsets :: Int -> Int -> [String] -> [String] -> IO [String]
prewordsets kinds syllablerange syllable void = do
    syllableculster <- randIO 1 syllablerange
    prewordgen <- prewordgen syllableculster syllable []
    if length void == kinds then return void
        else prewordsets kinds syllablerange syllable (prewordgen ++ void)
 
--単語生成
 
wordgen :: [String] -> [String] -> [String] -> [String] -> IO [String]
wordgen preword vowel consonant void = do
    selectcon <- randIO 0 (length consonant-1)
    selectvow <- randIO 0 (length vowel-1)
    let con = (consonant!!selectcon)
    let vow = (vowel!!selectvow)
    if length void == length (head preword) then word void []
    else case length void of
            0 -> case (head preword)!!0 of
                    'V' -> wordgen preword vowel consonant (vow:void)
                    'C' -> wordgen preword vowel consonant (con:void)
            _ -> case (head preword)!!(length void) of
                    'V' -> wordgen preword vowel consonant (void ++ (vow:[]))
                    'C' -> if (last void) == con then wordgen preword vowel consonant void else wordgen preword vowel consonant (void ++ (con:[]))
 
word :: [String] -> [String] -> IO [String]
word input output = if length input == 0 then return output
                    else if  length output == 0 then word (tail input) ((head input):output) else word (tail input) ((head output ++ head input):(init output))
 
wordsets :: [String] -> [String] -> [String] -> [String] -> IO [String]
wordsets prewords vowel consonant void =
    if length void == length prewords then return void
        else do
            let preword = (prewords!!(length void)):[]
            wordgen <- wordgen preword vowel consonant []
            wordsets prewords vowel consonant (void ++ wordgen)
 
--文の生成
sentgen :: [String] -> [String] -> String
sentgen wordlist void
        | length wordlist == 0 = head void
        | length void == 0 = sentgen (tail wordlist) ((head wordlist):void)
        | otherwise = sentgen (tail wordlist) ((head wordlist ++ " " ++ head void):init void)
 
--ユーフォニー指数
euphony :: Double -> Double -> Double -> Double -> Int -> Double
euphony alpha beta gamma delta epsilon
        | epsilon == 2 = -0.04*(e0**2) + 1.4*e0
        | otherwise = e0
    where
        e0 = euphony0 alpha beta gamma delta epsilon
 
euphony0 :: Double -> Double -> Double -> Double -> Int -> Double
euphony0 alpha beta gamma delta epsilon = 0.5 * (1 + (1 / (1 + exp (0.5*alpha - 7)))) * (100 / (1 + exp (-2.26*alpha - 0.08693*beta + 0.0112*gamma + 0.388*delta - 11.9)))
 
wordsize :: [String] -> [Int] -> [Int]
wordsize wordlist void
    | length wordlist == 0 = void
    | otherwise = wordsize (tail wordlist) (void ++ (length (head wordlist)):[])
 
mean :: [Double] -> Double --算術平均
mean ns = (sum ns) / (fromIntegral $ length ns)
 
mode :: [Int] -> [Int] --最頻値
mode [] = []
mode ns =
    let l = Map.fromListWith (\n m -> n + m) $ map (\x -> (x, (1::Double))) ns
        a = foldr1 (\x acc -> if x > acc then x else acc) $ Map.elems l
    in Map.keys $ Map.filter (==a) l
 
alpha :: [String] -> Double
alpha wordlist = mean (map fromIntegral $ wordsize wordlist [])
 
beta0 :: [String] -> [String] -> [String] -> Int
beta0 wordlist consonants void
    | length wordlist == 0 = length void
    | elem (((head wordlist)!!0):[]) consonants && elem (((head wordlist)!!1):[]) consonants = beta0 (tail wordlist) consonants ((head wordlist):void)
    | otherwise = beta0 (tail wordlist) consonants void
 
beta :: [String] -> [String] -> Double
beta wordlist consonants = (fromIntegral $ beta0 wordlist consonants []) / (fromIntegral $ length wordlist)
 
gamma0 :: [String] -> [String] -> [String] -> Int -> Int -> Int
gamma0 wordlist consonants void1 void2 void3
    | length wordlist == 0 = length void1
    | length (head wordlist) < 3 = gamma0 (tail wordlist) consonants void1 void2 void3
    | elem (head wordlist) ("s":[]) == False = gamma0 (tail wordlist) consonants (void1 ++ ((head wordlist):[])) void2 void3
    | otherwise = if ((head wordlist)!!void2) == 's'
                    then
                        if ((head wordlist)!!(void2+1)) /= (head (consonants!!void3)) then gamma0 (tail wordlist) consonants void1 void2 (void3+1)
                           else if ((head wordlist)!!(void2+2)) == 'r' || ((head wordlist)!!(void2+2)) == 'l' || ((head wordlist)!!(void2+2)) == 'h' then gamma0 (tail wordlist) consonants void1 0 0
                                else gamma0 (tail wordlist) consonants  (void1 ++ (head wordlist):[]) 0 0
                    else gamma0 wordlist consonants void1 (void2+1) void3
 
gamma :: [String] -> [String] -> Double
gamma wordlist consonants = (((fromIntegral (gamma0 wordlist consonants [] 0 0)) / (fromIntegral $ length wordlist)) * (beta wordlist consonants))
 
delta0 :: [String] -> [String] -> String
delta0 wordlist void
        | length wordlist == 0 = head void
        | length void == 0 = delta0 (tail wordlist) ((head wordlist):void)
        | otherwise = delta0 (tail wordlist) ((head wordlist ++ head void):init void)
 
delta1 :: String -> Int -> Int
delta1 word void
    | length word == 0 = void
    | head word == 'C' = delta1 (tail word) void+1
    | otherwise = delta1 (tail word) void
 
delta :: [String] -> Double
delta syllablelist = (fromIntegral (delta1 (delta0 syllablelist []) 0)) / (fromIntegral (length (delta0 syllablelist [])))
 
epsilon0 :: String -> Int -> [Int] -> Int
epsilon0 word void1 void2
    | length word == 0 = head (mode void2)
    | head word == 'C' = epsilon0 (tail word) (void1+1) void2
    | otherwise = epsilon0 (tail word) 0 (void1:void2)
 
epsilon :: [String] -> Int
epsilon word = epsilon0 (delta0 word []) 0 []
 
main :: IO()
main = do
    putStrLn "母音一覧"
    let vowel = ["a", "i", "u", "e", "o"]
    vows <- randIO 1 (length vowel)
    vowels <- vowels vows vowel []
    print $ vowels
    putStrLn "子音一覧"
    let consonant = ["b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "q", "r", "s", "t", "v", "w", "x", "y", "z"]
    cons <- randIO 2 (length consonant)
    consonants <- consonants cons consonant []
    print $ consonants
    putStrLn "音節構造一覧"
    kind <- randIO 1 50
    max <- randIO 1 3
    sylsets <- sylsets kind max []
    print $ sylsets
    putStrLn "単語の雛形(語の音節構造)"
    prewordgen <- prewordgen 3 sylsets []
    print $ prewordgen
    putStrLn "単語の雛形(語の音節構造)一覧"
    syllablerange <- randIO 1 6
    prewordsets <- prewordsets 30 syllablerange  sylsets []
    print $ prewordsets
    putStrLn "単語"
    wordgen <- wordgen prewordgen vowels consonants []
    print $ wordgen
    putStrLn "単語一覧"
    wordsets <- wordsets prewordsets vowels consonants []
    print $ wordsets
    putStrLn "文の生成"
    let sentence = sentgen wordsets []
    print $ sentence
    putStrLn "ユーフォニー指数(Euphony Index;)"
    putStr "alpha:"
    let alph = alpha wordsets
    print $ alph
    putStr "beta:"
    let bet = 100 * (beta wordsets consonants)
    print $ bet
    putStr "gamma:"
    let gam = 100 * (gamma wordsets consonants)
    print $ gam
    putStr "delta:"
    let del = 100 * (delta prewordsets)
    print $ del
    putStr "epsilon:"
    let ep = epsilon prewordsets
    print $ ep
    putStr "E = "
    let euphonyindex = euphony alph bet gam del ep
    print $ euphonyindex 

aW1wb3J0IFN5c3RlbS5SYW5kb20KaW1wb3J0IHF1YWxpZmllZCBEYXRhLkxpc3QgYXMgTAppbXBvcnQgcXVhbGlmaWVkIERhdGEuTWFwIGFzIE1hcAoKcmFuZElPIDo6IEludCAtPiBJbnQgLT4gSU8gSW50CnJhbmRJTyB4IHkgPSByYW5kb21SSU8gKHgsIHkpIDo6IElPIEludAoKZmFjdCAwID0gMQpmYWN0IG4gPSBmYWN0KG4tMSkgKiBuCgotLeavjemfs+ihqAp2b3dlbHMgOjogSW50IC0+IFtTdHJpbmddIC0+IFtTdHJpbmddIC0+IElPIFtTdHJpbmddCnZvd2VscyBraW5kcyB2b3dzIHZvaWQgPSBkbyAtLeavjemfs+OBrueorumhnuOBqOavjemfs+ihqOOBqOepuuOBruODquOCueODiAogICAgc2VsZWN0IDwtIHJhbmRJTyAxIChsZW5ndGggdm93cykKICAgIHNlbGVjdDIgPC0gcmFuZElPIDEgKGxlbmd0aCB2b3dzKQogICAgdm93c2xlbmd0aCA8LSByYW5kSU8gMSAyIC0t5LqM6YeN5q+N6Z+z44G+44Gn44Gr44GX44G+44GX44Gf44CC55ay44KM44Gf44Gu44Gn5LiJ6YeN5q+N6Z+z44Go44GL6KiA44KP44Gq44GE44Gn44CB44Gm44GL5pel5pys6Kqe6Kmx6ICF44Gv5L2/44GI44Gq44GE44KICiAgICBpZiBraW5kcyA9PSBsZW5ndGggdm9pZAogICAgICAgIHRoZW4gcmV0dXJuIHZvaWQKICAgICAgICBlbHNlIGlmIGtpbmRzID4gbGVuZ3RoIHZvaWQgJiYgdm93c2xlbmd0aCA9PSAxICYmIG5vdEVsZW0gKHZvd3MhIShzZWxlY3QtMSkpIHZvaWQKICAgICAgICAgICAgdGhlbiB2b3dlbHMga2luZHMgdm93cyAoKHZvd3MhIShzZWxlY3QtMSkpOnZvaWQpCiAgICAgICAgZWxzZSBpZiBraW5kcyA+IGxlbmd0aCB2b2lkICYmIHZvd3NsZW5ndGggPT0gMiAmJiBub3RFbGVtICgodm93cyEhKHNlbGVjdC0xKSkrKyh2b3dzISEoc2VsZWN0Mi0xKSkpIHZvaWQgJiYgKHZvd3MhIShzZWxlY3QtMSkpIC89ICh2b3dzISEoc2VsZWN0Mi0xKSkKICAgICAgICAgICAgdGhlbiB2b3dlbHMga2luZHMgdm93cyAoKCh2b3dzISEoc2VsZWN0LTEpKSsrKHZvd3MhIShzZWxlY3QyLTEpKSk6dm9pZCkKICAgICAgICBlbHNlIHZvd2VscyBraW5kcyB2b3dzIHZvaWQKCi0t5a2Q6Z+z6KGoCmNvbnNvbmFudHMgOjogSW50IC0+IFtTdHJpbmddIC0+IFtTdHJpbmddIC0+IElPIFtTdHJpbmddCmNvbnNvbmFudHMga2luZHMgY29uIHZvaWQgPSBkbwogICAgc2VsZWN0IDwtIHJhbmRJTyAxIChsZW5ndGggY29uKQogICAgaWYga2luZHMgPT0gbGVuZ3RoIHZvaWQKICAgICAgICB0aGVuIHJldHVybiB2b2lkCiAgICAgICAgZWxzZSBpZiBraW5kcyA+IGxlbmd0aCB2b2lkICYmIG5vdEVsZW0gKGNvbiEhKHNlbGVjdC0xKSkgdm9pZAogICAgICAgICAgIHRoZW4gY29uc29uYW50cyBraW5kcyBjb24gKChjb24hIShzZWxlY3QtMSkpOnZvaWQpCiAgICAgICAgZWxzZSBjb25zb25hbnRzIGtpbmRzIGNvbiB2b2lkCgotLemfs+evgOani+mAoOiHquWLleeUn+aIkOWZqCjjg6njg7Pjg4Djg6ApCnN5bGdlbiA6OiBJbnQgLT4gW1N0cmluZ10gLT4gSU8gW1N0cmluZ10Kc3lsZ2VuIG1heHN5bGxhYmxlIHZvaWQgPSBkbwogICAgbGV0IHN5bWJvbCA9IFsiQyIsICJWIl0KICAgIHNlbGVjdCA8LSByYW5kSU8gMCAxCiAgICBpZiBsZW5ndGggdm9pZCA9PSAwCiAgICAgICAgdGhlbiBkbwogICAgICAgICAgICBtYXggPC0gcmFuZElPIDEgbWF4c3lsbGFibGUgLS3pn7Pnr4Dmp4vpgKDjga7lpKfjgY3jgZXjga7nr4Tlm7LjgpLmjIflrprjgZnjgovjgajjgZMKICAgICAgICAgICAgc3lsZ2VuIG1heCAoKHN5bWJvbCEhc2VsZWN0KTp2b2lkKQogICAgICAgIGVsc2UgaWYgKGxlbmd0aCAoaGVhZCB2b2lkKSkgPT0gbWF4c3lsbGFibGUgdGhlbiBzeWwgbWF4c3lsbGFibGUgdm9pZAogICAgICAgICAgICBlbHNlIGlmIChoZWFkIHZvaWQpISEwID09ICdWJyB0aGVuIHN5bGdlbiBtYXhzeWxsYWJsZSAoKGluaXQgKGhlYWQgKCgoc3ltYm9sISEwKSArKyBoZWFkIHZvaWQpOihpbml0IHZvaWQpKSkpOihpbml0IHZvaWQpKQogICAgICAgICAgICBlbHNlIGNhc2Ugc2VsZWN0IG9mCiAgICAgICAgICAgICAgICAgICAgMCAtPiBzeWxnZW4gbWF4c3lsbGFibGUgKCgoc3ltYm9sISEwKSArKyBoZWFkIHZvaWQpOihpbml0IHZvaWQpKQogICAgICAgICAgICAgICAgICAgIDEgLT4gc3lsZ2VuIG1heHN5bGxhYmxlICgoKHN5bWJvbCEhMSkgKysgaGVhZCB2b2lkKTooaW5pdCB2b2lkKSkKCnN5bCA6OiBJbnQgLT4gW1N0cmluZ10gLT4gSU8gW1N0cmluZ10Kc3lsIG1heHN5bGxhYmxlIGlucHV0ID0gaWYgKGVsZW0gJ1YnIChpbnB1dCEhKGxlbmd0aCBpbnB1dCAtIDEpKSAmJiBlbGVtICdDJyAoaW5wdXQhIShsZW5ndGggaW5wdXQgLSAxKSkpIHx8IGVsZW0gJ1YnIChpbnB1dCEhKGxlbmd0aCBpbnB1dCAtMSkpIHRoZW4gcmV0dXJuIGlucHV0IGVsc2Ugc3lsZ2VuIG1heHN5bGxhYmxlIFtdCgpzeWxzZXRzIDo6IEludCAtPiBJbnQgLT4gW1N0cmluZ10gLT4gSU8gW1N0cmluZ10Kc3lsc2V0cyBraW5kcyBtYXhzeWxsYWJsZSB2b2lkID0gZG8KICAgICAgICBzeWxnZW4gPC0gc3lsZ2VuIG1heHN5bGxhYmxlIFtdCiAgICAgICAgaWYgbGVuZ3RoIHZvaWQgPT0ga2luZHMgdGhlbiByZXR1cm4gdm9pZAogICAgICAgICAgICBlbHNlIGlmIG5vdEVsZW0gKGhlYWQgc3lsZ2VuKSB2b2lkIHRoZW4gc3lsc2V0cyBraW5kcyBtYXhzeWxsYWJsZSAoc3lsZ2VuICsrIHZvaWQpCiAgICAgICAgICAgIGVsc2Ugc3lsc2V0cyBraW5kcyAobWF4c3lsbGFibGUrMSkgdm9pZAoKLS3ljZjoqp7jga7pm5vlvaIKCnByZXdvcmRnZW4gOjogSW50IC0+IFtTdHJpbmddIC0+IFtTdHJpbmddIC0+IElPIFtTdHJpbmddCnByZXdvcmRnZW4gc3lsbGFibGVjdWxzdGVyIHN5bGxhYmxlIHZvaWQgPSBkbwogICAgc2VsZWN0IDwtIHJhbmRJTyAxIChsZW5ndGggc3lsbGFibGUpCiAgICBpZiBsZW5ndGggdm9pZCA9PSAwIHRoZW4gcHJld29yZGdlbiBzeWxsYWJsZWN1bHN0ZXIgc3lsbGFibGUgKHN5bGxhYmxlISEoc2VsZWN0LTEpOnZvaWQpCiAgICAgICAgZWxzZSBpZiBsZW5ndGggdm9pZCA9PSBzeWxsYWJsZWN1bHN0ZXIgdGhlbiBwcmV3b3JkIHZvaWQgW10KICAgICAgICBlbHNlIHByZXdvcmRnZW4gc3lsbGFibGVjdWxzdGVyIHN5bGxhYmxlIChzeWxsYWJsZSEhKHNlbGVjdC0xKTp2b2lkKQoKcHJld29yZCA6OiBbU3RyaW5nXSAtPiBbU3RyaW5nXSAtPiBJTyBbU3RyaW5nXQpwcmV3b3JkIGlucHV0IG91dHB1dCA9IGlmIGxlbmd0aCBpbnB1dCA9PSAwIHRoZW4gcmV0dXJuIG91dHB1dAogICAgICAgICAgICAgICAgICAgIGVsc2UgaWYgbGVuZ3RoIG91dHB1dCA9PSAwIHRoZW4gcHJld29yZCAodGFpbCBpbnB1dCkgKChoZWFkIGlucHV0KTpvdXRwdXQpIGVsc2UgcHJld29yZCAodGFpbCBpbnB1dCkgKChoZWFkIG91dHB1dCArKyBoZWFkIGlucHV0KTooaW5pdCBvdXRwdXQpKQoKcHJld29yZHNldHMgOjogSW50IC0+IEludCAtPiBbU3RyaW5nXSAtPiBbU3RyaW5nXSAtPiBJTyBbU3RyaW5nXQpwcmV3b3Jkc2V0cyBraW5kcyBzeWxsYWJsZXJhbmdlIHN5bGxhYmxlIHZvaWQgPSBkbwogICAgc3lsbGFibGVjdWxzdGVyIDwtIHJhbmRJTyAxIHN5bGxhYmxlcmFuZ2UKICAgIHByZXdvcmRnZW4gPC0gcHJld29yZGdlbiBzeWxsYWJsZWN1bHN0ZXIgc3lsbGFibGUgW10KICAgIGlmIGxlbmd0aCB2b2lkID09IGtpbmRzIHRoZW4gcmV0dXJuIHZvaWQKICAgICAgICBlbHNlIHByZXdvcmRzZXRzIGtpbmRzIHN5bGxhYmxlcmFuZ2Ugc3lsbGFibGUgKHByZXdvcmRnZW4gKysgdm9pZCkKCi0t5Y2Y6Kqe55Sf5oiQCgp3b3JkZ2VuIDo6IFtTdHJpbmddIC0+IFtTdHJpbmddIC0+IFtTdHJpbmddIC0+IFtTdHJpbmddIC0+IElPIFtTdHJpbmddCndvcmRnZW4gcHJld29yZCB2b3dlbCBjb25zb25hbnQgdm9pZCA9IGRvCiAgICBzZWxlY3Rjb24gPC0gcmFuZElPIDAgKGxlbmd0aCBjb25zb25hbnQtMSkKICAgIHNlbGVjdHZvdyA8LSByYW5kSU8gMCAobGVuZ3RoIHZvd2VsLTEpCiAgICBsZXQgY29uID0gKGNvbnNvbmFudCEhc2VsZWN0Y29uKQogICAgbGV0IHZvdyA9ICh2b3dlbCEhc2VsZWN0dm93KQogICAgaWYgbGVuZ3RoIHZvaWQgPT0gbGVuZ3RoIChoZWFkIHByZXdvcmQpIHRoZW4gd29yZCB2b2lkIFtdCiAgICBlbHNlIGNhc2UgbGVuZ3RoIHZvaWQgb2YKICAgICAgICAgICAgMCAtPiBjYXNlIChoZWFkIHByZXdvcmQpISEwIG9mCiAgICAgICAgICAgICAgICAgICAgJ1YnIC0+IHdvcmRnZW4gcHJld29yZCB2b3dlbCBjb25zb25hbnQgKHZvdzp2b2lkKQogICAgICAgICAgICAgICAgICAgICdDJyAtPiB3b3JkZ2VuIHByZXdvcmQgdm93ZWwgY29uc29uYW50IChjb246dm9pZCkKICAgICAgICAgICAgXyAtPiBjYXNlIChoZWFkIHByZXdvcmQpISEobGVuZ3RoIHZvaWQpIG9mCiAgICAgICAgICAgICAgICAgICAgJ1YnIC0+IHdvcmRnZW4gcHJld29yZCB2b3dlbCBjb25zb25hbnQgKHZvaWQgKysgKHZvdzpbXSkpCiAgICAgICAgICAgICAgICAgICAgJ0MnIC0+IGlmIChsYXN0IHZvaWQpID09IGNvbiB0aGVuIHdvcmRnZW4gcHJld29yZCB2b3dlbCBjb25zb25hbnQgdm9pZCBlbHNlIHdvcmRnZW4gcHJld29yZCB2b3dlbCBjb25zb25hbnQgKHZvaWQgKysgKGNvbjpbXSkpCgp3b3JkIDo6IFtTdHJpbmddIC0+IFtTdHJpbmddIC0+IElPIFtTdHJpbmddCndvcmQgaW5wdXQgb3V0cHV0ID0gaWYgbGVuZ3RoIGlucHV0ID09IDAgdGhlbiByZXR1cm4gb3V0cHV0CiAgICAgICAgICAgICAgICAgICAgZWxzZSBpZiAgbGVuZ3RoIG91dHB1dCA9PSAwIHRoZW4gd29yZCAodGFpbCBpbnB1dCkgKChoZWFkIGlucHV0KTpvdXRwdXQpIGVsc2Ugd29yZCAodGFpbCBpbnB1dCkgKChoZWFkIG91dHB1dCArKyBoZWFkIGlucHV0KTooaW5pdCBvdXRwdXQpKQoKd29yZHNldHMgOjogW1N0cmluZ10gLT4gW1N0cmluZ10gLT4gW1N0cmluZ10gLT4gW1N0cmluZ10gLT4gSU8gW1N0cmluZ10Kd29yZHNldHMgcHJld29yZHMgdm93ZWwgY29uc29uYW50IHZvaWQgPQogICAgaWYgbGVuZ3RoIHZvaWQgPT0gbGVuZ3RoIHByZXdvcmRzIHRoZW4gcmV0dXJuIHZvaWQKICAgICAgICBlbHNlIGRvCiAgICAgICAgICAgIGxldCBwcmV3b3JkID0gKHByZXdvcmRzISEobGVuZ3RoIHZvaWQpKTpbXQogICAgICAgICAgICB3b3JkZ2VuIDwtIHdvcmRnZW4gcHJld29yZCB2b3dlbCBjb25zb25hbnQgW10KICAgICAgICAgICAgd29yZHNldHMgcHJld29yZHMgdm93ZWwgY29uc29uYW50ICh2b2lkICsrIHdvcmRnZW4pCgotLeaWh+OBrueUn+aIkApzZW50Z2VuIDo6IFtTdHJpbmddIC0+IFtTdHJpbmddIC0+IFN0cmluZwpzZW50Z2VuIHdvcmRsaXN0IHZvaWQKICAgICAgICB8IGxlbmd0aCB3b3JkbGlzdCA9PSAwID0gaGVhZCB2b2lkCiAgICAgICAgfCBsZW5ndGggdm9pZCA9PSAwID0gc2VudGdlbiAodGFpbCB3b3JkbGlzdCkgKChoZWFkIHdvcmRsaXN0KTp2b2lkKQogICAgICAgIHwgb3RoZXJ3aXNlID0gc2VudGdlbiAodGFpbCB3b3JkbGlzdCkgKChoZWFkIHdvcmRsaXN0ICsrICIgIiArKyBoZWFkIHZvaWQpOmluaXQgdm9pZCkKCi0t44Om44O844OV44Kp44OL44O85oyH5pWwCmV1cGhvbnkgOjogRG91YmxlIC0+IERvdWJsZSAtPiBEb3VibGUgLT4gRG91YmxlIC0+IEludCAtPiBEb3VibGUKZXVwaG9ueSBhbHBoYSBiZXRhIGdhbW1hIGRlbHRhIGVwc2lsb24KICAgICAgICB8IGVwc2lsb24gPT0gMiA9IC0wLjA0KihlMCoqMikgKyAxLjQqZTAKICAgICAgICB8IG90aGVyd2lzZSA9IGUwCiAgICB3aGVyZQogICAgICAgIGUwID0gZXVwaG9ueTAgYWxwaGEgYmV0YSBnYW1tYSBkZWx0YSBlcHNpbG9uCgpldXBob255MCA6OiBEb3VibGUgLT4gRG91YmxlIC0+IERvdWJsZSAtPiBEb3VibGUgLT4gSW50IC0+IERvdWJsZQpldXBob255MCBhbHBoYSBiZXRhIGdhbW1hIGRlbHRhIGVwc2lsb24gPSAwLjUgKiAoMSArICgxIC8gKDEgKyBleHAgKDAuNSphbHBoYSAtIDcpKSkpICogKDEwMCAvICgxICsgZXhwICgtMi4yNiphbHBoYSAtIDAuMDg2OTMqYmV0YSArIDAuMDExMipnYW1tYSArIDAuMzg4KmRlbHRhIC0gMTEuOSkpKQoKd29yZHNpemUgOjogW1N0cmluZ10gLT4gW0ludF0gLT4gW0ludF0Kd29yZHNpemUgd29yZGxpc3Qgdm9pZAogICAgfCBsZW5ndGggd29yZGxpc3QgPT0gMCA9IHZvaWQKICAgIHwgb3RoZXJ3aXNlID0gd29yZHNpemUgKHRhaWwgd29yZGxpc3QpICh2b2lkICsrIChsZW5ndGggKGhlYWQgd29yZGxpc3QpKTpbXSkKCm1lYW4gOjogW0RvdWJsZV0gLT4gRG91YmxlIC0t566X6KGT5bmz5Z2HCm1lYW4gbnMgPSAoc3VtIG5zKSAvIChmcm9tSW50ZWdyYWwgJCBsZW5ndGggbnMpCgptb2RlIDo6IFtJbnRdIC0+IFtJbnRdIC0t5pyA6aC75YCkCm1vZGUgW10gPSBbXQptb2RlIG5zID0KICAgIGxldCBsID0gTWFwLmZyb21MaXN0V2l0aCAoXG4gbSAtPiBuICsgbSkgJCBtYXAgKFx4IC0+ICh4LCAoMTo6RG91YmxlKSkpIG5zCiAgICAgICAgYSA9IGZvbGRyMSAoXHggYWNjIC0+IGlmIHggPiBhY2MgdGhlbiB4IGVsc2UgYWNjKSAkIE1hcC5lbGVtcyBsCiAgICBpbiBNYXAua2V5cyAkIE1hcC5maWx0ZXIgKD09YSkgbAoKYWxwaGEgOjogW1N0cmluZ10gLT4gRG91YmxlCmFscGhhIHdvcmRsaXN0ID0gbWVhbiAobWFwIGZyb21JbnRlZ3JhbCAkIHdvcmRzaXplIHdvcmRsaXN0IFtdKQoKYmV0YTAgOjogW1N0cmluZ10gLT4gW1N0cmluZ10gLT4gW1N0cmluZ10gLT4gSW50CmJldGEwIHdvcmRsaXN0IGNvbnNvbmFudHMgdm9pZAogICAgfCBsZW5ndGggd29yZGxpc3QgPT0gMCA9IGxlbmd0aCB2b2lkCiAgICB8IGVsZW0gKCgoaGVhZCB3b3JkbGlzdCkhITApOltdKSBjb25zb25hbnRzICYmIGVsZW0gKCgoaGVhZCB3b3JkbGlzdCkhITEpOltdKSBjb25zb25hbnRzID0gYmV0YTAgKHRhaWwgd29yZGxpc3QpIGNvbnNvbmFudHMgKChoZWFkIHdvcmRsaXN0KTp2b2lkKQogICAgfCBvdGhlcndpc2UgPSBiZXRhMCAodGFpbCB3b3JkbGlzdCkgY29uc29uYW50cyB2b2lkCgpiZXRhIDo6IFtTdHJpbmddIC0+IFtTdHJpbmddIC0+IERvdWJsZQpiZXRhIHdvcmRsaXN0IGNvbnNvbmFudHMgPSAoZnJvbUludGVncmFsICQgYmV0YTAgd29yZGxpc3QgY29uc29uYW50cyBbXSkgLyAoZnJvbUludGVncmFsICQgbGVuZ3RoIHdvcmRsaXN0KQoKZ2FtbWEwIDo6IFtTdHJpbmddIC0+IFtTdHJpbmddIC0+IFtTdHJpbmddIC0+IEludCAtPiBJbnQgLT4gSW50CmdhbW1hMCB3b3JkbGlzdCBjb25zb25hbnRzIHZvaWQxIHZvaWQyIHZvaWQzCiAgICB8IGxlbmd0aCB3b3JkbGlzdCA9PSAwID0gbGVuZ3RoIHZvaWQxCiAgICB8IGxlbmd0aCAoaGVhZCB3b3JkbGlzdCkgPCAzID0gZ2FtbWEwICh0YWlsIHdvcmRsaXN0KSBjb25zb25hbnRzIHZvaWQxIHZvaWQyIHZvaWQzCiAgICB8IGVsZW0gKGhlYWQgd29yZGxpc3QpICgicyI6W10pID09IEZhbHNlID0gZ2FtbWEwICh0YWlsIHdvcmRsaXN0KSBjb25zb25hbnRzICh2b2lkMSArKyAoKGhlYWQgd29yZGxpc3QpOltdKSkgdm9pZDIgdm9pZDMKICAgIHwgb3RoZXJ3aXNlID0gaWYgKChoZWFkIHdvcmRsaXN0KSEhdm9pZDIpID09ICdzJwogICAgICAgICAgICAgICAgICAgIHRoZW4KICAgICAgICAgICAgICAgICAgICAgICAgaWYgKChoZWFkIHdvcmRsaXN0KSEhKHZvaWQyKzEpKSAvPSAoaGVhZCAoY29uc29uYW50cyEhdm9pZDMpKSB0aGVuIGdhbW1hMCAodGFpbCB3b3JkbGlzdCkgY29uc29uYW50cyB2b2lkMSB2b2lkMiAodm9pZDMrMSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgZWxzZSBpZiAoKGhlYWQgd29yZGxpc3QpISEodm9pZDIrMikpID09ICdyJyB8fCAoKGhlYWQgd29yZGxpc3QpISEodm9pZDIrMikpID09ICdsJyB8fCAoKGhlYWQgd29yZGxpc3QpISEodm9pZDIrMikpID09ICdoJyB0aGVuIGdhbW1hMCAodGFpbCB3b3JkbGlzdCkgY29uc29uYW50cyB2b2lkMSAwIDAKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBlbHNlIGdhbW1hMCAodGFpbCB3b3JkbGlzdCkgY29uc29uYW50cyAgKHZvaWQxICsrIChoZWFkIHdvcmRsaXN0KTpbXSkgMCAwCiAgICAgICAgICAgICAgICAgICAgZWxzZSBnYW1tYTAgd29yZGxpc3QgY29uc29uYW50cyB2b2lkMSAodm9pZDIrMSkgdm9pZDMKCmdhbW1hIDo6IFtTdHJpbmddIC0+IFtTdHJpbmddIC0+IERvdWJsZQpnYW1tYSB3b3JkbGlzdCBjb25zb25hbnRzID0gKCgoZnJvbUludGVncmFsIChnYW1tYTAgd29yZGxpc3QgY29uc29uYW50cyBbXSAwIDApKSAvIChmcm9tSW50ZWdyYWwgJCBsZW5ndGggd29yZGxpc3QpKSAqIChiZXRhIHdvcmRsaXN0IGNvbnNvbmFudHMpKQoKZGVsdGEwIDo6IFtTdHJpbmddIC0+IFtTdHJpbmddIC0+IFN0cmluZwpkZWx0YTAgd29yZGxpc3Qgdm9pZAogICAgICAgIHwgbGVuZ3RoIHdvcmRsaXN0ID09IDAgPSBoZWFkIHZvaWQKICAgICAgICB8IGxlbmd0aCB2b2lkID09IDAgPSBkZWx0YTAgKHRhaWwgd29yZGxpc3QpICgoaGVhZCB3b3JkbGlzdCk6dm9pZCkKICAgICAgICB8IG90aGVyd2lzZSA9IGRlbHRhMCAodGFpbCB3b3JkbGlzdCkgKChoZWFkIHdvcmRsaXN0ICsrIGhlYWQgdm9pZCk6aW5pdCB2b2lkKQoKZGVsdGExIDo6IFN0cmluZyAtPiBJbnQgLT4gSW50CmRlbHRhMSB3b3JkIHZvaWQKICAgIHwgbGVuZ3RoIHdvcmQgPT0gMCA9IHZvaWQKICAgIHwgaGVhZCB3b3JkID09ICdDJyA9IGRlbHRhMSAodGFpbCB3b3JkKSB2b2lkKzEKICAgIHwgb3RoZXJ3aXNlID0gZGVsdGExICh0YWlsIHdvcmQpIHZvaWQKCmRlbHRhIDo6IFtTdHJpbmddIC0+IERvdWJsZQpkZWx0YSBzeWxsYWJsZWxpc3QgPSAoZnJvbUludGVncmFsIChkZWx0YTEgKGRlbHRhMCBzeWxsYWJsZWxpc3QgW10pIDApKSAvIChmcm9tSW50ZWdyYWwgKGxlbmd0aCAoZGVsdGEwIHN5bGxhYmxlbGlzdCBbXSkpKQoKZXBzaWxvbjAgOjogU3RyaW5nIC0+IEludCAtPiBbSW50XSAtPiBJbnQKZXBzaWxvbjAgd29yZCB2b2lkMSB2b2lkMgogICAgfCBsZW5ndGggd29yZCA9PSAwID0gaGVhZCAobW9kZSB2b2lkMikKICAgIHwgaGVhZCB3b3JkID09ICdDJyA9IGVwc2lsb24wICh0YWlsIHdvcmQpICh2b2lkMSsxKSB2b2lkMgogICAgfCBvdGhlcndpc2UgPSBlcHNpbG9uMCAodGFpbCB3b3JkKSAwICh2b2lkMTp2b2lkMikKCmVwc2lsb24gOjogW1N0cmluZ10gLT4gSW50CmVwc2lsb24gd29yZCA9IGVwc2lsb24wIChkZWx0YTAgd29yZCBbXSkgMCBbXQoKbWFpbiA6OiBJTygpCm1haW4gPSBkbwogICAgcHV0U3RyTG4gIuavjemfs+S4gOimpyIKICAgIGxldCB2b3dlbCA9IFsiYSIsICJpIiwgInUiLCAiZSIsICJvIl0KICAgIHZvd3MgPC0gcmFuZElPIDEgKGxlbmd0aCB2b3dlbCkKICAgIHZvd2VscyA8LSB2b3dlbHMgdm93cyB2b3dlbCBbXQogICAgcHJpbnQgJCB2b3dlbHMKICAgIHB1dFN0ckxuICLlrZDpn7PkuIDopqciCiAgICBsZXQgY29uc29uYW50ID0gWyJiIiwgImMiLCAiZCIsICJmIiwgImciLCAiaCIsICJqIiwgImsiLCAibCIsICJtIiwgIm4iLCAicCIsICJxIiwgInIiLCAicyIsICJ0IiwgInYiLCAidyIsICJ4IiwgInkiLCAieiJdCiAgICBjb25zIDwtIHJhbmRJTyAyIChsZW5ndGggY29uc29uYW50KQogICAgY29uc29uYW50cyA8LSBjb25zb25hbnRzIGNvbnMgY29uc29uYW50IFtdCiAgICBwcmludCAkIGNvbnNvbmFudHMKICAgIHB1dFN0ckxuICLpn7Pnr4Dmp4vpgKDkuIDopqciCiAgICBraW5kIDwtIHJhbmRJTyAxIDUwCiAgICBtYXggPC0gcmFuZElPIDEgMwogICAgc3lsc2V0cyA8LSBzeWxzZXRzIGtpbmQgbWF4IFtdCiAgICBwcmludCAkIHN5bHNldHMKICAgIHB1dFN0ckxuICLljZjoqp7jga7pm5vlvaIo6Kqe44Gu6Z+z56+A5qeL6YCgKSIKICAgIHByZXdvcmRnZW4gPC0gcHJld29yZGdlbiAzIHN5bHNldHMgW10KICAgIHByaW50ICQgcHJld29yZGdlbgogICAgcHV0U3RyTG4gIuWNmOiqnuOBrumbm+W9oijoqp7jga7pn7Pnr4Dmp4vpgKAp5LiA6KanIgogICAgc3lsbGFibGVyYW5nZSA8LSByYW5kSU8gMSA2CiAgICBwcmV3b3Jkc2V0cyA8LSBwcmV3b3Jkc2V0cyAzMCBzeWxsYWJsZXJhbmdlICBzeWxzZXRzIFtdCiAgICBwcmludCAkIHByZXdvcmRzZXRzCiAgICBwdXRTdHJMbiAi5Y2Y6KqeIgogICAgd29yZGdlbiA8LSB3b3JkZ2VuIHByZXdvcmRnZW4gdm93ZWxzIGNvbnNvbmFudHMgW10KICAgIHByaW50ICQgd29yZGdlbgogICAgcHV0U3RyTG4gIuWNmOiqnuS4gOimpyIKICAgIHdvcmRzZXRzIDwtIHdvcmRzZXRzIHByZXdvcmRzZXRzIHZvd2VscyBjb25zb25hbnRzIFtdCiAgICBwcmludCAkIHdvcmRzZXRzCiAgICBwdXRTdHJMbiAi5paH44Gu55Sf5oiQIgogICAgbGV0IHNlbnRlbmNlID0gc2VudGdlbiB3b3Jkc2V0cyBbXQogICAgcHJpbnQgJCBzZW50ZW5jZQogICAgcHV0U3RyTG4gIuODpuODvOODleOCqeODi+ODvOaMh+aVsChFdXBob255IEluZGV4OykiCiAgICBwdXRTdHIgImFscGhhOiIKICAgIGxldCBhbHBoID0gYWxwaGEgd29yZHNldHMKICAgIHByaW50ICQgYWxwaAogICAgcHV0U3RyICJiZXRhOiIKICAgIGxldCBiZXQgPSAxMDAgKiAoYmV0YSB3b3Jkc2V0cyBjb25zb25hbnRzKQogICAgcHJpbnQgJCBiZXQKICAgIHB1dFN0ciAiZ2FtbWE6IgogICAgbGV0IGdhbSA9IDEwMCAqIChnYW1tYSB3b3Jkc2V0cyBjb25zb25hbnRzKQogICAgcHJpbnQgJCBnYW0KICAgIHB1dFN0ciAiZGVsdGE6IgogICAgbGV0IGRlbCA9IDEwMCAqIChkZWx0YSBwcmV3b3Jkc2V0cykKICAgIHByaW50ICQgZGVsCiAgICBwdXRTdHIgImVwc2lsb246IgogICAgbGV0IGVwID0gZXBzaWxvbiBwcmV3b3Jkc2V0cwogICAgcHJpbnQgJCBlcAogICAgcHV0U3RyICJFID0gIgogICAgbGV0IGV1cGhvbnlpbmRleCA9IGV1cGhvbnkgYWxwaCBiZXQgZ2FtIGRlbCBlcAogICAgcHJpbnQgJCBldXBob255aW5kZXgg