open Str
let lst = split (regexp ",") (read_line ())
let ans = 
    if List.mem "WA" lst || List.mem "TLE" lst || List.mem "MLE" lst 
    then "Failed..." else "Done!"
let () = print_endline ans