6 lines
141 B
OCaml
6 lines
141 B
OCaml
let _ =
|
|
let count = new_channel ()
|
|
and lines = new_channel ()
|
|
in
|
|
let _ = Thread.create (printer lines) count
|
|
in reader count lines
|