let evalVar (_x: string) (_q:envQueue): float  =
    match List.Assoc.find _q _x with
        Some(s) -> s
        | None -> 0.0