let () = try print_string ("\r\n" ^ (Simpleweb.output_simple_text (Simpleweb.safe_retrive_from_uri ()) () ^ "\r\n\r\n")) 
with End_of_file -> exit 0;

.