fun readLine () = valOf (TextIO.inputLine TextIO.stdIn) exception BadInput fun findAns "Zelkova and Cherry" = "1st" | findAns "BANNED CONTEST" = "2nd" | findAns "Stray Bullet" = "3rd" | findAns "Early Summer Rain" = "4th" | findAns "Do you know Cherry Contest?" = "Alpha" | findAns _ = raise BadInput val () = let val s = readLine () val ans = findAns (String.substring (s, 0, String.size s - 1)) in print (ans ^ "\n") end