I have some dirty code here: http://ideone.com/WG9mN

To compile:

ocamlfind ocamlopt -package core,async -thread -linkpkg -o foo foo.ml

The problem is the 'wait' never seems to come back. This appears to be
because the cat is still waiting on reading stdin.  But the stdin
should be closed on line 77, shouldn't it?

What am I doing wrong?

Thanks!

/M