moiseev

let rec toExpr (par:ParameterExpression) (clause: Clause) =
    let constExpr (x:'a) =
        Expression.Constant(x, typeof<'a>) |> asExpr
    let callExpr (i:Expression) (m:String) (p:Expression) =
        Expression.Call(i, m, Array.empty, p)        
    let arrExpr (xs:'a array) =
        Expression.NewArrayInit(typeof<'a>, Array.map (constExpr >> asExpr) xs) |> asExpr
    let inExpr (vEx:Expression) (arrEx:Expression) =
        Expression.Call(typeof<Enumerable>, "Contains", [|vEx.Type|], arrEx, vEx) |> asExpr