program speedrun
  implicit none
  logical::CHK=.true.
  character(4*10**5-1)::S
  integer::i
  read"(A)",S
  do i=1,len_trim(S)
    if(S(i:i)=="A")cycle
    if(S(i:i)=="C")cycle
    if(S(i:i)==",")cycle
    CHK=.false.
    exit
  end do
  print"(A)",trim(merge("Done!    ","Failed...",CHK))
end program speedrun