fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) val () = let val i = readInt () val ans = String.sub ("IGNITION", i - 1) in print (Char.toString ans ^ "\n") end