(let ((data "")(b "") (c '()) (v nil))
(while (read 0 b 1000) (extend data b))
(setf v (map (fn (x) (parse x "=")) (parse data "&")))
(let ((data "")(b "") (c '()) (v nil))
(while (read 0 b 1000) (extend data b))
(setf v (map (fn (x) (parse x "=")) (parse data "&")))