%ifdef environment

def environment.get(~default="", s) =

env = environment()

if

not list.assoc.mem(s, env)

then

default

else

list.assoc(default=default, s, env)

end

end

def url.split_args(args) =

def f(x) =

ret = r/=/.split(x)

arg = url.decode(list.nth(default="", ret, 0))

val = url.decode(list.nth(default="", ret, 1))

(arg, val)

end

l = r/&/.split(args)

list.map(f, l)

end

def url.split(uri) =

ret = r/(?<uri>[^\?]*)\?(?<args>.*)/.exec(uri).groups

args = ret["args"]

if

args != ""

then

(url.decode(ret["uri"]), url.split_args(args))

else

(url.decode(uri), [])

end

end

def memoize(fn) =

cached_result = ref([])

fun () ->

begin

if

cached_result() != []

then

list.hd(cached_result())

else

result = fn()

cached_result := [result]

result

end

end

end