(* (c) Andrzej Wasowski, 2004 *)

(* generate n random integer numbers and display them on the standard output *)

val g  = Random.newgen()
val nl = "\n"

fun generate_s 0 acc = implode (map Char.chr acc)
  | generate_s n acc = generate_s (n-1) (Random.range (65,90) g::acc)

fun generate 0 = ()
  | generate n = (
		  print (generate_s 100 []);
		  print "\n";
		  generate (n-1)
		 )

val n = valOf (Int.fromString (hd (CommandLine.arguments())))
val _ = print (Int.toString n ^ "\n")
val _ = generate n