let wrap_to_ahref str name =
	"<a href=\"" ^ (Uri.to_string (Uri.of_string str))  ^ "\">" ^ (Filename.basename name) ^ "</a>"

let rec iter_lines () = 
	try begin
		let line = read_line () in
		if Sys.is_regular_file line then begin
			wrap_to_ahref line line
				|> print_endline
		end;
		iter_lines ()
	end with
		| End_of_file -> ()
		| Sys_error _ -> ()

let () = iter_lines ()

.