let get_argument name =
try
urldecode_string (
(Regexp.exec
(Regexp.make ((urlencode_string name) ^ "=([^&]*)"))
((get_location ()) >>> JSOO.get "search" >>> JSOO.as_string)
).(1)
)
with
| Invalid_argument _ -> raise Not_found