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