fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) fun printAns n = let val s = Int.toString n fun makeLine 0 = "\n" | makeLine i = s ^ makeLine (i - 1) fun printAnsInner 0 = ignore () | printAnsInner i = (print (makeLine i); printAnsInner (i - 1)) in printAnsInner n end val () = let val n = readInt () in printAns n end