fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) fun readStr () = let fun scan reader stream = SOME (StringCvt.splitl (not o Char.isSpace) reader (StringCvt.skipWS reader stream)) in valOf (TextIO.scanStream scan TextIO.stdIn) end fun findCIndex [] = ~1 | findCIndex (#"c"::tl) = 0 | findCIndex (_::tl) = 1 + findCIndex tl val () = let val n = readInt () val s = readStr () val i = findCIndex (String.explode s) val dropped = List.drop (String.explode s, i + 1) val ans = "UEC" ^ (String.implode dropped) in print (ans ^ "\n") end