fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) fun intString n = if 0 <= n then Int.toString n else "-" ^ Int.toString (abs n) fun printAns [] = print "\n" | printAns [x] = (print (intString x); printAns []) | printAns (h :: tl) = (print (intString h); print " "; printAns tl) val () = let val n = readInt () val h = readInt () val ts = List.tabulate (n, fn _ => readInt ()) val ans = List.map (fn t => t + h) ts in printAns ans end