fun readInt () = valOf (TextIO.scanStream (Int.scan StringCvt.DEC) TextIO.stdIn) val () = let val c = readInt () in print ("1 " ^ Int.toString c ^ "\n") end