let rec LookUp values nm =
    match values with
    | [] -> None
    | xs::ys ->
        if fst(xs) = nm then
            snd(xs)
        else
            LookUp ys nm