(require :asdf)
(asdf:load-system :uiop)

(format t "~A~%"
	(if (find "AC"
			(uiop:split-string
				(read-line)
				:separator ",")
			:test #'string/=)
		"Failed..."
		"Done!"))