Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*)
+open Http_types;;
open Printf;;
(*
let inchan = Unix.in_channel_of_descr suck in
wget' inchan ""
in
-let callback req outchan =
+let callback (req: request) outchan =
let i = int_of_string (req#param "x") in
prerr_endline (string_of_int i);
match i with