(* val readIntList : string -> int list

   read a list of integers from a file; each line of file should
   consist of single OCaml integer numeral *)

let readIntList file =
      let readInt chan =
            try Some(int_of_string(input_line chan)) with
                _ -> None in
      let chan = open_in file in
      let rec read xs =
            match readInt chan with
                  None   -> List.rev xs
                | Some n -> read(n :: xs)
      in read[]