counts.ml

let sum = List.fold_left (fun s x -> s + x) 0
let split = Str.split (Str.regexp_string " ")

let each_line f = 
  let rec go () = 
    let _ = f (input_line stdin) in go ()
  in try go() with End_of_file -> () 

let words = Hashtbl.create 8
let count x = try Hashtbl.find words x with Not_found -> 0
let inc x = Hashtbl.replace words x (count x + 1);;

each_line inc;
Hashtbl.iter (Printf.printf "%s: %d") words;