fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) fun printList [] = ignore () | printList (h :: tl) = ( print (Int.toString h ^ "\n"); printList tl ) val () = let val n = readInt () val s_s = List.tabulate (n, fn _ => readInt ()) in printList s_s end