let urlencode args = String.concat "&" (List.map (fun (n,v) -> (urlencode_string n) ^ "=" ^ (urlencode_string v)) args )